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

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Keywords

• nonn
• more
• base

Comments

No more terms through 5000.

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

Crossrefs

Cf. A000040, A102118, A102131-A102145.

Programs

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

Formula

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

Extensions

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