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] + 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 *)
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)) + R(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]]+R[a[n-3]]];Table[a[n], {n, 0, 40}]
rev[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; nxt[{a_, b_, c_}] := {b, c, rev[rev[a] + rev[b] + rev[c]]}; Transpose[NestList[nxt,{0,0,1},40]][[1]] (* Harvey P. Dale, Mar 20 2015 *)
nxt[{a_,b_,c_}]:=With[{ir=IntegerReverse},{b,c,ir[ir[a]+ir[b]+ir[c]]}]; NestList[nxt,{0,0,1},40][[;;,1]] (* Harvey P. Dale, Jul 22 2025 *)
R[n_]:=FromDigits[Reverse[IntegerDigits[n]]];Clear[a];a[0]=0;a[1]=0;a[2]=1;a [n_]:=a[n]=a[n-1]+R[a[n-2]]+a[n-3];Table[a[n], {n, 0, 40}]
nxt[{a_,b_,c_}]:={b,c,a+FromDigits[Reverse[IntegerDigits[b]]]+c}; Transpose[ NestList[nxt,{0,0,1},40]][[1]] (* Harvey P. Dale, Jul 29 2013 *)
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-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||n):
a:= proc(n) option remember; `if`(n<3, binomial(n, 2),
a(n-1) + R(a(n-2)) + R(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]=a[n-1]+R[a[n-2]]+R[a[n-3]];Table[a[n], {n, 0, 40}]
nxt[{a1_,a2_,a3_}]:={a2,a3,a3+FromDigits[Reverse[IntegerDigits[ a1]]]+ FromDigits[ Reverse[ IntegerDigits[a2]]]}; Transpose[NestList[nxt,{0,0,1},40]][[1]] (* Harvey P. Dale, Oct 17 2012 *)
nxt[{a_,b_,c_}]:={b,c,c+IntegerReverse[b]+IntegerReverse[a]}; NestList[ nxt,{0,0,1},40][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 10 2016 *)
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]+R[a[n-3]];Table[a[n], {n, 0, 40}]
nxt[{a_,b_,c_}]:={b,c,Total[FromDigits/@Reverse/@IntegerDigits[ {a,c}]]+b}; Transpose[NestList[nxt,{0,0,1},35]][[1]] (* Harvey P. Dale, Dec 19 2011 *)
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]]+R[a[n-2]]+a[n-3];Table[a[n], {n, 0, 40}]
nxt[{a_,b_,c_}]:={b,c,FromDigits[Reverse[IntegerDigits[c]]]+ FromDigits[ Reverse[ IntegerDigits[b]]]+a}; Transpose[NestList[nxt,{0,0,1},40]][[1]] (* Harvey P. Dale, Oct 10 2014 *)
Comments