login
A102142
Iccanobirt prime indices (12 of 15): Indices of prime numbers in A102122.
1
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,1
COMMENTS
No more terms through 5000.
a(25) > 50000. - Robert Price, Nov 10 2018
FORMULA
A102122(a(n)) = A102162(n).
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 *)
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
EXTENSIONS
a(18)-a(24) from Robert Price, Nov 10 2018
STATUS
approved