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 *)
nxt[{a_,b_,c_}]:={b,c,a+FromDigits[Reverse[IntegerDigits[b]]]+c};Select[NestList[nxt,{0,0,1},200][[All,1]],PrimeQ] (* Harvey P. Dale, Dec 26 2022 *)
nxt[{a_,b_,c_}]:={b,c,a+IntegerReverse[b]+c};Select[NestList[nxt,{0,0,1},100][[All,1]],PrimeOmega[#]==2&] (* Harvey P. Dale, Jul 11 2021 *)
a:=[0,0,1];[n le 3 select a[n] else Self(n-1) + Self(n-2) + Seqint(Reverse(Intseq(Self(n-3)))):n in [1..36]]; // Marius A. Burtea, Oct 23 2019
read("transforms") ;
A102111 := proc(n)
option remember;
if n <= 2 then
return op(n+1,[0,0,1]) ;
else
return procname(n-1)+procname(n-2)+digrev(procname(n-3)) ;
end if;
end proc:
seq(A102111(n),n=0..20) ; # R. J. Mathar, Nov 17 2012
R[n_]:=FromDigits[Reverse[IntegerDigits[n]]];Clear[a];a[0]=0;a[1]=0;a[2]=1;a [n_]:=a[n]=a[n-1]+a[n-2]+R[a[n-3]];Table[a[n], {n, 0, 40}]
nxt[{a_,b_,c_}]:={b,c,IntegerReverse[a]+b+c}; NestList[nxt,{0,0,1},40][[;;,1]] (* Harvey P. Dale, Jul 18 2023 *)
def R(n):
n_str = str(n)
reversedn_str = n_str[::-1]
reversedn = int(reversedn_str)
return reversedn
def A(n):
if n == 0:
return 0
elif n == 1:
return 0
elif n == 2:
return 1
elif n >= 3:
return A(n-1)+A(n-2)+R(A(n-3))
for i in range(0,20):
print(A(i)) # Dylan Delgado, Oct 23 2019
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, IntegerReverse[c + IntegerReverse[b] + a]}; NestList[nxt,{0,0,1},40][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 30 2017 *)
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