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,1

Comments

No more terms through 10^4.

Links

Table of n, a(n) for n=1..18.

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 *)

Prog

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

Crossrefs

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

Sequence in context: A216561 A192269 A284618 * A089560 A248077 A239547

Adjacent sequences: A101756 A101757 A101758 * A101760 A101761 A101762

Keyword

nonn,more,base

Author

Jonathan Vos Post and Ray Chandler, Dec 15 2004

Status

approved