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.
%I A268228 #22 Sep 08 2022 08:46:15 %S A268228 1,9,7,13,9,4,16,9,19,10,9,16,13,18,13,16,18,10,19,9,16,22,9,13,7,9, %T A268228 19,10,18,16,13,27,13,25,18,10,19,18,25,13,18,31,16,27,19,19,27,16,22, %U A268228 18,4,16,9,19,19,9,25,13,27,13,16,18,19,19,18,16,31,18,31,16,27,19,10,18,7,13,18 %N A268228 a(n) = sum of digits of (2n + 1)^2. %H A268228 Robert Israel, <a href="/A268228/b268228.txt">Table of n, a(n) for n = 0..10000</a> %H A268228 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. %F A268228 a(n) = A007953(A016754(n)). - _Michel Marcus_, Oct 13 2017 %p A268228 f:= n -> convert(convert((2*n+1)^2,base,10),`+`): %p A268228 map(f, [$0..100]); # _Robert Israel_, Apr 26 2020 %t A268228 Table[Sum[DigitCount[(2 n + 1)^2] [[i]] i, {i, 9}], {n, 0, 70}] (* _Vincenzo Librandi_, Jul 23 2016, after _G. C. Greubel_ *) %o A268228 (PARI) a(n) = sumdigits((2*n+1)^2); \\ _Michel Marcus_, Jul 23 2016 %o A268228 (Magma) [&+Intseq((2*n+1)^2): n in [0..87] ]; // _Vincenzo Librandi_, Jul 23 2016 %Y A268228 Bisection of A004159. Cf. A007953, A016754, A268227. %K A268228 nonn,base %O A268228 0,2 %A A268228 _N. J. A. Sloane_, Jan 31 2016