|
Search: id:A068833
|
|
|
| A068833 |
|
Start of the first occurrence of exactly n consecutive squares with digit sum also a square. |
|
+0
2
|
|
| 16, 36, 900, 3364, 0, 123409881, 10000, 81, 2120219933855716
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
EXAMPLE
|
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.
|
|
MATHEMATICA
|
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]]]
|
|
CROSSREFS
|
Sequence in context: A076956 A075369 A053893 this_sequence A116190 A070587 A070586
Adjacent sequences: A068830 A068831 A068832 this_sequence A068834 A068835 A068836
|
|
KEYWORD
|
hard,more,nonn,base
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 09 2002
|
|
EXTENSIONS
|
Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com), Oct 28 2002
|
|
|
Search completed in 0.002 seconds
|
