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]] + 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 *)
R:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||n):
a:= proc(n) option remember; `if`(n<3, binomial(n, 2),
R(R(a(n-1)) + R(a(n-2)) + a(n-3)) )
end:
seq(a(n), n=0..50); # Alois P. Heinz, Jun 18 2014
R[n_]:=FromDigits[Reverse[IntegerDigits[n]]];Clear[a];a[0]=0;a[1]=0;a[2]=1;a [n_]:=a[n]=R[R[a[n-1]]+R[a[n-2]]+a[n-3]];Table[a[n], {n, 0, 40}]
R[n_]:=FromDigits[Reverse[IntegerDigits[n]]];Clear[a];a[0]=0;a[1]=0;a[2]=1;a [n_]:=a[n]=R[a[n-1]+a[n-2]+a[n-3]];Table[a[n], {n, 0, 40}]
Transpose[NestList[{#[[2]],#[[3]],FromDigits[Reverse[IntegerDigits[Total[ #]]]]}&,{0,0,1},40]][[1]] (* Harvey P. Dale, Dec 04 2012 *)
Comments