login

Revision History for A276149

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

newer changes | Showing entries 11-14
a(0) = 0; for n >= 1, a(n) = A048764(n) * (1+(A084558(n)-A099563(n))).
(history; published version)
#4 by Antti Karttunen at Mon Aug 29 11:45:35 EDT 2016
COMMENTS

Auxiliary function for computing A225901: the most significant digit in factorial base representation of n is "inverted", the rest "cleared".

#3 by Antti Karttunen at Mon Aug 29 10:57:43 EDT 2016
LINKS

Antti Karttunen, <a href="/A276149/b276149.txt">Table of n, a(n) for n = 0..5039</a>

#2 by Antti Karttunen at Mon Aug 29 10:49:16 EDT 2016
NAME

allocated for Antti Karttunen

a(0) = 0; for n >= 1, a(n) = A048764(n) * (1+(A084558(n)-A099563(n))).

DATA

0, 1, 4, 4, 2, 2, 18, 18, 18, 18, 18, 18, 12, 12, 12, 12, 12, 12, 6, 6, 6, 6, 6, 6, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 24

OFFSET

0,3

COMMENTS

Auxiliary function for computing A225901.

LINKS

<a href="/index/Fa#facbase">Index entries for sequences related to factorial base representation</a>

FORMULA

a(0) = 0; for n >= 1, a(n) = A048764(n) * (1+(A084558(n)-A099563(n))).

PROG

(Scheme) (define (A276149 n) (if (zero? n) n (* (A048764 n) (+ 1 (- (A084558 n) (A099563 n))))))

CROSSREFS
KEYWORD

allocated

nonn,base

AUTHOR

Antti Karttunen, Aug 29 2016

STATUS

approved

editing

Discussion
Mon Aug 29
10:55
Antti Karttunen: Just an ugly intermediary function for computing A225901 (the experience has shown these to be useful later also). In this case I guess there are also more elegant recurrences for it.
#1 by Antti Karttunen at Mon Aug 22 14:03:07 EDT 2016
NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved