A101759 Iccanobif prime indices: Indices of prime numbers in A001129.

3, 4, 5, 7, 13, 39, 51, 65, 254, 315, 361, 423, 1109, 1497, 1701, 3711, 3814, 3847

Offset: 1

Author

Jonathan Vos Post and Ray Chandler, Dec 15 2004

Keywords

• nonn
• more
• base

Comments

No more terms through 10^4.

Crossrefs

Cf. A000040, A001129, A014258-A014260, A101760-A101762.

Programs

Mathematica

nxt[{a_,b_}]:={b,Total[IntegerReverse[{a,b}]]};Flatten[Position[NestList[nxt,{0,1},4000][[All,1]],?PrimeQ]]-1 (* _Harvey P. Dale, Aug 24 2022 *)

PARI

a=0; b=1; for(n=2,3999, ispseudoprime(b=A004086(a)+A004086(a=b))&print1(n", ")) \\ M. F. Hasler, Jan 14 2011