OFFSET
0,1
COMMENTS
FORMULA
a(0) = 17 and a(n) = A063041(a(n-1)) for n > 0
MATHEMATICA
NestList[If[PrimeQ[#], #*Prime[PrimePi[#]-1]+1, #/Min@@First/@FactorInteger[#]]&, 17, 30] (* Jayanta Basu, May 27 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Reinhard Zumkeller, Jul 07 2001
EXTENSIONS
More terms from Sean A. Irvine, Apr 16 2023
STATUS
approved