A102165
Iccanobirt primes (15 of 15): Prime numbers in A102125.
Original entry on oeis.org
2, 7, 31, 941, 7112507, 12796921, 3517479344831, 1899587921740207, 57354010293760755391, 35721164922760679029463000239097478253, 7147924589973841766823293744823574255243111
Offset: 1
A102144
Iccanobirt prime indices (14 of 15): Indices of prime numbers in A102124.
Original entry on oeis.org
4, 6, 7, 12, 25, 43, 57, 165, 277, 368, 711, 1005, 1135, 1246, 2032, 3513, 5685, 8222, 10939, 26435
Offset: 1
-
a[n_] := a[n] =
IntegerReverse[IntegerReverse[a[n - 1]] + IntegerReverse[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 *)
Showing 1-2 of 2 results.
Comments