Search: id:A068833
Results 1-1 of 1 results found.

%I A068833
%S A068833 16,36,900,3364,0,123409881,10000,81,2120219933855716
%N A068833 Start of the first occurrence of exactly n consecutive squares with digit 
               sum also a square.
%e A068833 a(7) = 81 as the sums of the digits of the 7 consecutive squares 81,100,
               121,144,169,196,225 are squares, but the digit sums of 64 and 256 
               are not.
%t A068833 l[n_] := Module[{k}, For[k=0, IntegerQ[Sqrt[Plus@@IntegerDigits[(n+k)^2]]], 
               k++, Null]; k]; Clear[a]; For[n=0, True, n+=ln+1, If[a[ln=l[n]]==-1, 
               Null, Null, a[ln]=n; Print["a(", ln, ")=", n^2]]]
%Y A068833 Sequence in context: A076956 A075369 A053893 this_sequence A116190 A070587 
               A070586
%Y A068833 Adjacent sequences: A068830 A068831 A068832 this_sequence A068834 A068835 
               A068836
%K A068833 hard,more,nonn,base
%O A068833 0,1
%A A068833 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 09 2002
%E A068833 Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com), Oct 28 2002

Search completed in 0.001 seconds