OFFSET
1,1
MATHEMATICA
nxt[{a_, b_, c_}]:={b, c, IntegerReverse[c]+b+a}; Flatten[Position[ NestList[ nxt, {0, 0, 1}, 200][[All, 1]], _?(PrimeOmega[#]==2&)]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 16 2018 *)
CROSSREFS
KEYWORD
nonn,more,less,base
AUTHOR
Jonathan Vos Post and Ray Chandler, Dec 31 2004
EXTENSIONS
a(15) from Robert Price, Nov 08 2018
Offset changed to 1 and a(16)-a(17) from Jinyuan Wang, Aug 10 2021
STATUS
approved
