A102162 Iccanobirt primes (12 of 15): Prime numbers in A102122.
2, 7, 31, 67, 908821, 6171227123, 833416212437, 925518314049349041313, 366319426867272069390603006331, 41322662051354105860272734271998443
Offset: 1
Programs
-
Mathematica
nxt[{a_,b_,c_}]:={b,c,IntegerReverse[IntegerReverse[c]+b+a]}; Select[NestList[nxt,{0,0,1},150][[;;,1]],PrimeQ] (* Harvey P. Dale, Sep 10 2024 *)
Extensions
Offset changed to 1 by Jinyuan Wang, Aug 14 2021
Comments