A102144 Iccanobirt prime indices (14 of 15): Indices of prime numbers in A102124.

4, 6, 7, 12, 25, 43, 57, 165, 277, 368, 711, 1005, 1135, 1246, 2032, 3513, 5685, 8222, 10939, 26435

Offset

1,1

Comments

No more terms through 5000.

a(21) > 50000. - Robert Price, Nov 10 2018

Links

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

Formula

A102124(a(n)) = A102164(n).

Mathematica

a[n_] := a[n] =
   IntegerReverse[IntegerReverse[a[n - 1]] + IntegerReverse[a[n - 2]] + a[n - 3]];
a[0] = 0; a[1] = 0; a[2] = 1;
Select[Range[0, 5000], PrimeQ[a[#]] &] (* Robert Price, Apr 10 2020 *)

Crossrefs

Cf. A000040, A102124, A102131-A102145.

Sequence in context: A102136 A102142 A302165 * A102138 A002151 A276931

Adjacent sequences: A102141 A102142 A102143 * A102145 A102146 A102147

Keyword

nonn,more,base

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Extensions

a(17)-a(20) from Robert Price, Nov 10 2018

Status

approved