|
%I #11 Sep 14 2016 15:56:13
%S 0,4,7,9,10,1,9,16,13,9,4,16,18,19,19,9,7,13,18,13,7,18,19,10,9,7,13,
%T 18,13,16,9,19,19,18,16,13,18,22,25,18,10,19,18,25,22,9,22,25,18,19,1,
%U 9,16,13,18,4,16,27,19,19,9,25,22,27,22,16,18,28,28,18,16,13,18,13,16,9,10,19,18
%N a(n) = sum of digits of (2n)^2.
%H Harvey P. Dale, <a href="/A268227/b268227.txt">Table of n, a(n) for n = 0..1000</a>
%H H. I. Okagbue, M. O. Adamu, S. A. Iyase, A. A. Opanuga, <a href="http://dx.doi.org/10.17485/ijst/2015/v8i15/69912">Sequence of Integers Generated by Summing the Digits of their Squares</a>, Indian Journal of Science and Technology, Vol 8(15), DOI: 10.17485/ijst/2015/v8i15/69912, July 2015.
%t Total[IntegerDigits[#]]&/@((2*Range[0,80])^2) (* _Harvey P. Dale_, Sep 14 2016 *)
%o (PARI) a(n) = sumdigits((2*n)^2); \\ _Michel Marcus_, Jul 23 2016
%Y Bisection of A004159. Cf. A268228.
%K nonn,base
%O 0,2
%A _N. J. A. Sloane_, Jan 31 2016
|
