

A076929


a(1) = 1, a(n+1)= a(n)*(n+1) divided by the smallest prime divisor of n+1.


1



1, 1, 1, 2, 2, 6, 6, 24, 72, 360, 360, 2160, 2160, 15120, 75600, 604800, 604800, 5443200, 5443200, 54432000, 381024000, 4191264000, 4191264000, 50295168000, 251475840000, 3269185920000, 29422673280000, 411917425920000
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,4


LINKS

Table of n, a(n) for n=1..28.


MAPLE

a[1] := 1: for n from 2 to 100 do a[n] := n*a[n1]/ifactors(n)[2][1][1]: od:seq(a[j], j=1..100);


MATHEMATICA

nxt[{n_, a_}]:={n+1, (a(n+1))/FactorInteger[n+1][[1, 1]]}; Transpose[ NestList[ nxt, {1, 1}, 30]][[2]] (* Harvey P. Dale, Jan 09 2016 *)


CROSSREFS

Cf. A076928.
Sequence in context: A282169 A081123 A056038 * A265642 A186944 A247525
Adjacent sequences: A076926 A076927 A076928 * A076930 A076931 A076932


KEYWORD

nonn


AUTHOR

Amarnath Murthy, Oct 18 2002


EXTENSIONS

More terms from Sascha Kurz, Jan 21 2003


STATUS

approved



