A102152 Iccanobirt primes (2 of 15): Prime numbers in A102112.
2, 7, 13, 167, 1843406868619, 567512739603223, 1125599723626314594798370059933052227890281327798090340341843
Offset: 1
Programs
-
Mathematica
nxt[{a_,b_,c_}]:={b,c,a+FromDigits[Reverse[IntegerDigits[b]]]+c};Select[NestList[nxt,{0,0,1},200][[All,1]],PrimeQ] (* Harvey P. Dale, Dec 26 2022 *)
Extensions
Offset changed to 1 by Jinyuan Wang, Aug 08 2021
Comments