A102151 Iccanobirt primes (1 of 15): Prime numbers in A102111.
2, 7, 13, 33049, 118852511, 4737081270498735525597185686764838592126526518160799, 1077332507131387702854919470217222614007309564248616024722926341483527602546317
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a[n_] := a[n] = 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 *)
Comments