OFFSET
1,1
COMMENTS
This sequence also includes 790, 1161, 1347, 1418, 1595, 1761, and 2018. It might or might not include 769, 1394, 1795, 1983, 2093, 2178, but the required factoring proved rather difficult. There are no further terms below 2178. - Lucas A. Brown, Nov 12 2022
LINKS
Lucas A. Brown, A101766.py.
MATHEMATICA
nxt[{a_, b_}]:={b, IntegerReverse[a]+b}; Flatten[Position[NestList[nxt, {0, 1}, 600][[All, 1]], _?(PrimeOmega[#]==2&)]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 04 2018 *)
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Jonathan Vos Post and Ray Chandler, Dec 15 2004
EXTENSIONS
Offset changed to 1 by Jinyuan Wang, Aug 01 2021
a(31) from Lucas A. Brown, Nov 12 2022
STATUS
approved