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.

A056992 Digital roots of square numbers A000290.

This page as a plain text file.
%I A056992 #55 Aug 03 2025 03:23:17
%S A056992 1,4,9,7,7,9,4,1,9,1,4,9,7,7,9,4,1,9,1,4,9,7,7,9,4,1,9,1,4,9,7,7,9,4,
%T A056992 1,9,1,4,9,7,7,9,4,1,9,1,4,9,7,7,9,4,1,9,1,4,9,7,7,9,4,1,9,1,4,9,7,7,
%U A056992 9,4,1,9,1,4,9,7,7,9,4,1,9,1,4,9,7,7,9
%N A056992 Digital roots of square numbers A000290.
%C A056992 Cyclic with a period of nine. Note that (7, 9, 4, 1, 9, 1, 4, 9, 7) is palindromic.
%C A056992 a(n) is also the decimal expansion of 499264730/333333333. - _Enrique Pérez Herrero_, Jul 28 2009
%C A056992 a(n) is also the digital root of A002477(n). - _Enrique Pérez Herrero_, Dec 20 2009
%C A056992 First comment above by _Enrique Pérez Herrero_ and his formula below together give the following identity: 1+Sum_{n>=2}(1+9*((n^2-1)/9-floor((n^2-1)/9)))/10^(n-1) = 499264730/333333333 = 1.49779419149779419149779419... - _Alexander R. Povolotsky_, Jun 14 2012
%H A056992 G. C. Greubel, <a href="/A056992/b056992.txt">Table of n, a(n) for n = 1..5000</a>
%H A056992 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SquareNumber.html">Square Number</a>.
%F A056992 a(n) = 1+9*{(n^2-1)/9}, where the symbol {} means fractional part. - _Enrique Pérez Herrero_, Dec 20 2009
%F A056992 a(n) = 3(1 + cos(2n*Pi/3) + cos(4n*Pi/3)) + mod(3n^4+3n^6+4n^8,9). - _Ant King_, Oct 07 2009
%F A056992 G.f.: x*(1+4*x+9*x^2+7*x^3+7*x^4+9*x^5+4*x^6+x^7+9*x^8)/((1-x)*(1+x+x^2)*(1+x^3+x^6)). - _Ant King_, Oct 20 2009
%F A056992 a(n) = A010888(A057147(n)). - _Reinhard Zumkeller_, Mar 19 2014
%t A056992 DigitalRoot[n_Integer?NonNegative] := 1 + 9*FractionalPart[(n - 1)/9] A056992[n_]:=DigitalRoot[n^2] (* _Enrique Pérez Herrero_, Dec 20 2009 *)
%t A056992 Table[FixedPoint[Total[IntegerDigits[#]]&,n^2],{n,90}] (* _Zak Seidov_, Jun 13 2015 *)
%t A056992 PadRight[{},120,{1,4,9,7,7,9,4,1,9}] (* _Harvey P. Dale_, Apr 16 2022 *)
%o A056992 (Haskell)
%o A056992 a056992 = a010888 . a000290  -- _Reinhard Zumkeller_, Mar 19 2014
%Y A056992 Cf. A000290, A002477, A010888, A057147, A056991.
%K A056992 nonn,base,easy
%O A056992 1,2
%A A056992 _Eric W. Weisstein_