OFFSET
1,1
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
For n=7, 7th primorial = 510510, iteration list = {510510,12,3}, so a(7)=3.
MAPLE
A086360 := proc(n) option remember: if(n=1)then return 2:fi: return ithprime(n)*procname(n-1) mod 9: end: seq(A086360(n), n=1..100); # Nathaniel Johnston, May 04 2011
MATHEMATICA
sud[x_] := Apply[Plus, DeleteCases[IntegerDigits[x], 0]] q[x_] := Apply[Times, Table[Prime[w], {w, 1, x}]] Table[FixedPoint[sud, q[w]], {w, 1, 128}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, Jul 21 2003
STATUS
approved