A102142 Iccanobirt prime indices (12 of 15): Indices of prime numbers in A102122.

4, 6, 7, 12, 19, 30, 37, 67, 93, 109, 297, 341, 602, 1377, 1745, 1972, 4208, 7942, 9572, 10409, 11927, 12707, 13460, 33803

Offset: 1

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Keywords

• nonn
• more
• base

Comments

No more terms through 5000.

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

Crossrefs

Cf. A000040, A102122, A102131-A102145.

Programs

Mathematica

a[n_] := a[n] =
   IntegerReverse[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 *)

Formula

A102122(a(n)) = A102162(n).

Extensions

a(18)-a(24) from Robert Price, Nov 10 2018