A102133 Iccanobirt prime indices (3 of 15): Indices of prime numbers in A102113.

4, 6, 7, 25, 30, 50, 100, 657, 3158, 3369, 3441, 17549, 19234

Offset

1,1

Comments

No more terms through 5000.

No more terms through 6000. - Harvey P. Dale, Sep 10 2016

a(14) > 50000. - Robert Price, Nov 07 2018

Links

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

Formula

A102113(a(n)) = A102153(n).

Mathematica

nxt[{a_, b_, c_}] := {b, c, c + IntegerReverse[b] + IntegerReverse[a]}; Flatten[Position[NestList[nxt, {0, 0, 1}, 3500][[All, 1]], _?PrimeQ]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 10 2016 *)

Crossrefs

Cf. A000040, A102113, A102131-A102145.

Sequence in context: A102135 A019251 A102134 * A192121 A012760 A333742

Adjacent sequences: A102130 A102131 A102132 * A102134 A102135 A102136

Keyword

nonn,more,base

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Extensions

a(12)-a(13) from Robert Price, Nov 07 2018

Status

approved