OFFSET
0,1
MATHEMATICA
a[0]=15; Do[a[n]=Total[IntegerDigits[a[n-1]]]; a[n+1]=a[n-1]*a[n], {n, 1, 28, 2}]; Table[a[n], {n, 0, 28}] (* James C. McMahon, May 07 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Chris Dawson (chris(AT)irjsoftware.com), based on an email from Graham Rees, Nov 02 2005
EXTENSIONS
More terms from R. J. Mathar, Feb 08 2008
Name edited by Michel Marcus, May 08 2024
STATUS
approved