A003821 a(1)=a(2)=1, a(n+1) = (a(n)^6 +1)/a(n-1).

1, 1, 2, 65, 37709445313, 44237187584945316063023352626539792098172619389908174093304834

Offset: 1

Author

Waldemar Pompe (pompe(AT)zodiac1.mimuw.edu.pl)

Keywords

• nonn

Programs

Maple

A003821 := proc(n) option remember; if n <= 2 then 1 else (A003821(n-1)^6+1)/A003821(n-2); fi; end;

Mathematica

RecurrenceTable[{a[1]==a[2]==1,a[n+1]==(a[n]^6+1)/a[n-1]},a,{n,6}] (* Harvey P. Dale, Oct 15 2019 *)