A102141 Iccanobirt prime indices (11 of 15): Indices of prime numbers in A102121.

4, 6, 7, 15, 25, 51, 126, 171, 311, 358, 865, 1850, 3311, 4686, 7893, 8249, 17795, 27176, 48728

Offset

1,1

Comments

No more terms through 5000.

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

Links

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

Formula

A102121(a(n)) = A102161(n).

Mathematica

a[n_] := a[n] =
   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, A102121, A102131-A102145.

Sequence in context: A054063 A112917 A379961 * A107919 A165404 A270887

Adjacent sequences: A102138 A102139 A102140 * A102142 A102143 A102144

Keyword

nonn,more,base

Author

Jonathan Vos Post and Ray Chandler, Dec 31 2004

Extensions

a(15)-a(19) from Robert Price, Nov 10 2018

Status

approved