cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A068833 Start of the first occurrence of exactly n consecutive squares with digit sum also a square.

This page as a plain text file.
%I A068833 #13 Aug 27 2018 16:54:04
%S A068833 16,36,900,3364,0,123409881,10000,81,2120219933855716,
%T A068833 91361386718598177458046950625
%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 Cf. A061910, A293832.
%K A068833 hard,more,nonn,base
%O A068833 0,1
%A A068833 _Amarnath Murthy_, Mar 09 2002
%E A068833 Edited by _Dean Hickerson_, Oct 28 2002
%E A068833 a(9) from _Giovanni Resta_, Aug 27 2018