The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A276149

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A276149

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

#14 by N. J. A. Sloane at Wed Aug 31 20:53:45 EDT 2016

STATUS

proposed

approved

#13 by Michael De Vlieger at Tue Aug 30 16:15:29 EDT 2016

STATUS

editing

proposed

#12 by Michael De Vlieger at Tue Aug 30 10:41:11 EDT 2016

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 *)

STATUS

proposed

editing

#11 by Michael De Vlieger at Tue Aug 30 10:40:10 EDT 2016

STATUS

editing

proposed

#10 by Michael De Vlieger at Tue Aug 30 10:40:05 EDT 2016

MATHEMATICA

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 *)

STATUS

proposed

editing

#9 by Antti Karttunen at Mon Aug 29 12:58:08 EDT 2016

STATUS

editing

proposed

#8 by Antti Karttunen at Mon Aug 29 12:57:54 EDT 2016

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

STATUS

proposed

editing

Discussion

Mon Aug 29

12:58

Antti Karttunen: Done.

#7 by Antti Karttunen at Mon Aug 29 11:47:46 EDT 2016

STATUS

editing

proposed

Discussion

Mon Aug 29

12:47

Michel Marcus: Data section is too big; can you reduce it? Say after 1st 48 ?

#6 by Antti Karttunen at Mon Aug 29 11:47:13 EDT 2016

COMMENTS

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

#5 by Antti Karttunen at Mon Aug 29 11:46:30 EDT 2016

COMMENTS

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