A143760
a(n+1) = a(n)^2 + n^2, a(1) = 1.
Original entry on oeis.org
1, 2, 8, 73, 5345, 28569050, 816190617902536, 666167124752123519223995231345, 443778638100511299954105018279514127887014869775300070509089
Offset: 1
-
RecurrenceTable[{a[1]==1,a[n]==a[n-1]^2+(n-1)^2},a[n],{n,10}] (* Harvey P. Dale, May 03 2011 *)
A143761
a(n+1) = a(n)^2 - n*a(n) + n^2, a(1) = 1.
Original entry on oeis.org
1, 1, 3, 9, 61, 3441, 11819871, 139709267717593, 19518679486184955909459972969, 380978848884417414427615903969045678210740619589070918321
Offset: 1
-
RecurrenceTable[{a[n+1] == a[n]^2 - n*a[n] + n^2, a[1] == 1}, a, {n, 1, 10}] (* Vaclav Kotesovec, Dec 18 2014 *)
nxt[{n_,a_}]:={n+1,a^2-a(n+1)+(n+1)^2}; Join[{1},NestList[nxt,{1,1},10][[All,2]]] (* Harvey P. Dale, Oct 15 2017 *)
A143762
a(n+1) = a(n)^2 + n*a(n) + n^2, a(1) = 1.
Original entry on oeis.org
1, 3, 19, 427, 184053, 33876427099, 1147612313197120118431, 1317014021401644919149757309088631306730827, 1734525932568532421128602190712731410907662021613907396581559184320372648524685950609
Offset: 1
-
RecurrenceTable[{a[n+1] == a[n]^2 + n*a[n] + n^2, a[1] == 1}, a, {n, 1, 10}] (* Vaclav Kotesovec, Dec 18 2014 *)
nxt[{n_, a_}] := {n + 1, a^2 + n*a + n^2}; NestList[nxt,{1,1},10][[All,2]] (* Harvey P. Dale, Sep 12 2018 *)
A143763
a(n+1) = (a(n)-n)^2, a(1) = 1.
Original entry on oeis.org
1, 0, 4, 1, 9, 16, 100, 8649, 74666881, 5575141774264384, 31082205803147712138788845611876, 966103517589229313003894215813508352493573272034098666228778225
Offset: 1
-
a=1;Table[a=(n-a)^2,{n,0,16}] (* Vladimir Joseph Stephan Orlovsky, Nov 20 2009 *)
RecurrenceTable[{a[n+1] == (a[n]-n)^2, a[1] == 1}, a, {n, 1, 15}] (* Vaclav Kotesovec, Dec 18 2014 *)
nxt[{n_,a_}]:={n+1,(a-n)^2}; NestList[nxt,{1,1},12][[All,2]] (* Harvey P. Dale, Feb 02 2022 *)
A143764
a(n+1) = (a(n)+n)^2, a(1) = 1.
Original entry on oeis.org
1, 4, 36, 1521, 2325625, 5408554896900, 29252466072845872288372836, 855706771342998810018458679815602502067088579902649, 732234078522259249473123638277942895348884466303559008943210424176413224873174808848983192723595659649
Offset: 1
-
s=1;lst={};Do[AppendTo[lst,s*=s+=n],{n,0,9}];lst (* Vladimir Joseph Stephan Orlovsky, Oct 20 2009 *)
RecurrenceTable[{a[n+1] == (a[n]+n)^2, a[1] == 1}, a, {n, 1, 10}] (* Vaclav Kotesovec, Dec 18 2014 *)
FoldList[(#1+#2)^2&,1,Range@8] (* Ivan N. Ianakiev, May 08 2015 *)
nxt[{n_,a_}]:={n+1,(a+n)^2}; NestList[nxt,{1,1},10][[;;,2]] (* Harvey P. Dale, Aug 16 2024 *)
A143765
a(n+1) = a(n)^2 - 3*n*a(n) + n^2, a(1) = 1.
Original entry on oeis.org
1, -1, 11, 31, 605, 356975, 127424725111, 16237060566937994735039, 263642135854412795003324875413502371940690649, 69507175797876652622009028770643203522181284529919017784559264153993383198392412717393759
Offset: 1
-
RecurrenceTable[{a[n+1] == a[n]^2 - 3*n*a[n] + n^2, a[1] == 1}, a, {n, 1, 10}] (* Vaclav Kotesovec, Dec 18 2014 *)
Showing 1-6 of 6 results.
Comments