login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A276149 a(0) = 0; for n >= 1, a(n) = A048764(n) * (1+(A084558(n)-A099563(n))). 2
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

Auxiliary function for computing A225901: the most significant digit in factorial base representation of n is "inverted", the rest of digits are "cleared" (replaced with zeros).

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..5039

Index entries for sequences related to factorial base representation

FORMULA

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

MATHEMATICA

{0}~Join~Table[# (1 + ((m = 1; While[m! <= n, m++]; m - 1) - Floor[n/#])) &[k = 1; While[(k + 1)! <= n, k++]; k!], {n, 96}] (* Michael De Vlieger, Aug 30 2016, after Jayanta Basu at A084558 *)

PROG

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

CROSSREFS

Cf. A048764, A084558, A099563, A225901.

Sequence in context: A002581 A161778 A099655 * A146899 A317726 A031351

Adjacent sequences: A276146 A276147 A276148 * A276150 A276151 A276152

KEYWORD

nonn,base

AUTHOR

Antti Karttunen, Aug 29 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 30 05:55 EST 2023. Contains 359939 sequences. (Running on oeis4.)