A102138 Iccanobirt prime indices (8 of 15): Indices of prime numbers in A102118.

4, 6, 7, 12, 25, 72, 100, 126, 167, 253, 396, 856, 1013, 1172, 1413, 2138, 23926, 28255

Offset

1,1

Comments

No more terms through 5000.

a(19) > 50000. - Robert Price, Nov 09 2018

Links

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

Formula

A102118(a(n)) = A102158(n).

Mathematica

a[n_] := a[n] = IntegerReverse[(a[n - 1] + 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, A102118, A102131-A102145.

Sequence in context: A102142 A302165 A102144 * A002151 A276931 A192046

Adjacent sequences: A102135 A102136 A102137 * A102139 A102140 A102141

Keyword

nonn,more,base

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Extensions

a(17)-a(18) from Robert Price, Nov 09 2018

Status

approved