A102134 Iccanobirt prime indices (4 of 15): Indices of prime numbers in A102114.

4, 6, 7, 22, 32, 48, 58, 61, 80, 85, 119, 136, 150, 184, 420, 591, 878, 2447, 30938

Offset

1,1

Comments

No more terms through 5000.

No more terms through 7500. From Harvey P. Dale, May 30 2012

a(20) > 50000. - Robert Price, Nov 08 2018

Links

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

Formula

A102114(a(n)) = A102154(n).

Mathematica

nxt[{a_, b_, c_}]:={b, c, FromDigits[Reverse[IntegerDigits[c]]]+b+a}; Flatten[ Position[Transpose[NestList[nxt, {0, 0, 1}, 2500]][[1]], _?PrimeQ]-1] (* Harvey P. Dale, May 30 2012 *)

Crossrefs

Cf. A000040, A102114, A102131-A102145.

Sequence in context: A102137 A102135 A019251 * A102133 A192121 A012760

Adjacent sequences: A102131 A102132 A102133 * A102135 A102136 A102137

Keyword

nonn,more,base

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Extensions

a(19) from Robert Price, Nov 08 2018

Status

approved