A102153 -id:A102153 - cp's OEIS frontend

Showing 1-1 of 1 results.

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

Original entry on oeis.org

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

Offset: 1

Jonathan Vos Post and Ray Chandler, Dec 31 2004

No more terms through 5000.
No more terms through 6000. - Harvey P. Dale, Sep 10 2016
a(14) > 50000. - Robert Price, Nov 07 2018

Cf. A000040, A102113, A102131-A102145.

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

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

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

Showing 1-1 of 1 results.