Search: id:A094301 Results 1-1 of 1 results found. %I A094301 %S A094301 0,1,2,1,0,3,4,1,6,21,16,31,456,681,1186,208441,671016,1869171, %T A094301 43448848636,493709451721,3944060830326,1887802451244390439101, %U A094301 245636825165950759470616,15799364856026522930297791 %N A094301 a(0)=0, a(1)=1, a(2)=2; for n>2, a(n) = a(n-1) - a(n-2) + a(n-3)^2. %o A094301 (Perl) -e '@a=(0,1,2); for (3..20){ $a[$_] = $a[$_-1] - $a[$_-2] + $a[$_-3]**2; print "$a[$_],";}' %o A094301 (PARI) print1(c=0,",",b=1,","a=2,",");for(n=1,21,print1(d=a-b+c^2,","); c=b;b=a;a=d) - Klaus Brockhaus %Y A094301 Sequence in context: A124030 A166040 A106378 this_sequence A135488 A099493 A088523 %Y A094301 Adjacent sequences: A094298 A094299 A094300 this_sequence A094302 A094303 A094304 %K A094301 easy,nonn %O A094301 0,3 %A A094301 Gamo (gamo(AT)telecable.es), Nov 13 2004 %E A094301 More terms from Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Nov 14 2004 Search completed in 0.001 seconds