%I A076042
%S A076042 1,5,14,30,5,41,90,26,107,7,128,272,103,299,74,330,41,365,4,404,845,361,
%T A076042 890,314,939,263,992,208,1049,149,1110,86,1175,19,1244,2540,
%U A076042 1171,2615,1094,2694,1013,2777,928,2864,839,2955,746,3050,649,3149
%N A076042 a(1) = 1, a(n) = a(n-1) + n^2 if a(n-1) < n^2 else a(n) = a(n-1) - n^2.
%H A076042 Franklin T. Adams-Watters, <a href="b076042.txt">Table of n, a(n) for 
               n=1,...,1000</a>
%o A076042 v=vector(50):v[1]=1:for(n=2,50,if(v[n-1]<n^2,v[n]=v[n-1]+n^2,v[n]=v[n-1]-n^2)):print(v)
%Y A076042 Cf. A076039, A003462, A076041, A046901.
%Y A076042 Sequence in context: A047801 A005918 A019262 this_sequence A049791 A053461 
               A136135
%Y A076042 Adjacent sequences: A076039 A076040 A076041 this_sequence A076043 A076044 
               A076045
%K A076042 nonn
%O A076042 1,2
%A A076042 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Oct 29 2002
%E A076042 More terms from Ralf Stephan (ralf(AT)ark.in-berlin.de), Mar 20 2003