|
|
A085087
|
|
a(1) = 1; for n>1, a(n) = a(n-1)*n if n is prime, a(n) = a(n-1)/n if n is composite dividing a(n-1) else a(n) = a(n-1).
|
|
1
|
|
|
1, 2, 6, 6, 30, 5, 35, 35, 35, 35, 385, 385, 5005, 5005, 5005, 5005, 85085, 85085, 1616615, 1616615, 1616615, 1616615, 37182145, 37182145, 37182145, 37182145, 37182145, 37182145, 1078282205, 1078282205, 33426748355, 33426748355
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a = {1}; Do[AppendTo[a, If[PrimeQ[n], a[[-1]]*n, If[Divisible[a[[-1]], n], a[[-1]]/n, a[[-1]]]]], {n, 2, 32}]; a (* Ivan Neretin, May 21 2015 *)
|
|
PROG
|
(PARI) print1(k=1); for(n=2, 99, if(isprime(n), k*=n, if(k%n==0, k/=n)); print1(", "k)) \\ Charles R Greathouse IV, May 21 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 02 2003
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|