A102154 Iccanobirt primes (4 of 15): Prime numbers in A102114.

2, 7, 13, 823541, 131622637, 42562230754481, 81409990081365019, 854720149266848129, 10368894671263026260137261, 462512205427594928694039517, 2554464709394644494293414485734745657, 10316628799362671595219100337312778857284159, 124041034096767708661687005571699720680324204493

Offset: 1

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Keywords

• nonn
• less
• base

Crossrefs

Cf. A000040, A102114, A102151-A102165.

Programs

Mathematica

nxt[{a_, b_, c_}] := {b, c, IntegerReverse[c] + b + a}; Select[ NestList[ nxt, {0, 0, 1}, 400][[ All, 1]], PrimeQ] (* Harvey P. Dale, Apr 14 2022 *)

Formula

a(n) = A102114(A102134(n)).

Extensions

Offset changed to 1 and more terms from Jinyuan Wang, Aug 10 2021