OFFSET
0,1
COMMENTS
a(0) = a(5) = 3
FORMULA
a(0) = 3 and a(n) = A063041(a(n-1)) for n > 0
MATHEMATICA
NestList[If[PrimeQ[#], #*Prime[PrimePi[#]-1]+1, #/Min@@First/@FactorInteger[#]]&, 3, 104] (* Jayanta Basu, May 27 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Jul 07 2001
STATUS
approved