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] = IntegerReverse[(a[n - 1] + 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 *)
b[0] = b[1] = 0; b[2] = 1; b[n_] := b[n] = IntegerReverse[b[n - 1] + IntegerReverse[b[n - 2]] + b[n - 3]];
Reap[Do[If[PrimeQ[b[n]], Print[n]; Sow[n]], {n, 5000}]][[2, 1]] (* Jean-François Alcover, Dec 15 2017 *)
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 *)
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 *)
a[n_] := a[n] = IntegerReverse[IntegerReverse[a[n - 1]] + 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 *)
Comments