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
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 *)
Extensions
a(17)-a(18) from Robert Price, Nov 09 2018
Comments