|
|
A233447
|
|
Floor(compositorial(n) / n!), that is, floor(A036691(n) / A000142(n)).
|
|
0
|
|
|
4, 12, 32, 72, 144, 288, 576, 1080, 1920, 3456, 6283, 10996, 18609, 31901, 53169, 86400, 137223, 213458, 337040, 539264, 847415, 1309642, 1992933, 2989400, 4543888, 6815833, 10097530, 15146295, 22980586, 34470879, 51150337, 76725506, 113925752, 167537870, 244126611
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI) a(n)=my(c, p, N); N=n; c=4; p=1; while(n>0, if(!isprime(c), p=p*c; n=n-1); c=c+1); floor(p/N!) \\ Ralf Stephan, Dec 21 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|