A102145 Iccanobirt prime indices (15 of 15): Indices of prime numbers in A102125.

4, 6, 7, 11, 30, 31, 50, 64, 77, 146, 163, 185, 210, 354, 367, 402, 3137, 3228, 3639, 11756, 22054, 23126

Offset

1,1

Comments

No more terms through 5000.

a(23) > 50000. - Robert Price, Nov 11 2018

Links

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

Formula

A102125(a(n)) = A102165(n).

Mathematica

a[n_] := a[n] =
   IntegerReverse[IntegerReverse[a[n - 1]] + IntegerReverse[a[n - 2]] +
     IntegerReverse[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, A102125, A102131-A102144.

Sequence in context: A167228 A247545 A310655 * A102132 A102143 A364725

Adjacent sequences: A102142 A102143 A102144 * A102146 A102147 A102148

Keyword

nonn,more,base

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Extensions

a(20)-a(22) from Robert Price, Nov 11 2018

Status

approved