A102159 Iccanobirt primes (9 of 15): Prime numbers in A102119.
2, 7, 31, 401, 90481, 6691411
Offset: 1
Extensions
Offset changed to 1 by Jinyuan Wang, Aug 14 2021
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
nxt[{a_,b_,c_}]:={b,c,IntegerReverse[c+IntegerReverse[b]+a]}; Select[ NestList[nxt,{0,0,1},200][[All,1]],PrimeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 30 2017 *)
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 *)
Comments