A093534 Square pyramorphic numbers: integers m such that the sum of the first m squares (A000330) ends in m.
0, 1, 5, 25, 40, 65, 80, 160, 225, 385, 400, 560, 625, 785, 800, 960, 1185, 2560, 2625, 4000, 5185, 6560, 6625, 8000, 9185, 9376, 10625, 26560, 37185, 40000, 50625, 66560, 77185, 80000, 90625, 226560, 317185, 400000, 490625, 626560, 717185, 800000
Offset: 1
References
- C. A. Pickover, Wonders of Numbers, Chap. 65, Oxford Univ. Press NY 2000; pp. 158-160.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..9000 (terms > 10^11 generated according to _Robert Dawson_'s comment)
- Robert Dawson, On Some Sequences Related to Sums of Powers, J. Int. Seq., Vol. 21 (2018), Article 18.7.6.
Programs
-
Mathematica
l = {0}; s = 0; Do[s = s + n^2; If[ Mod[s, 10^Floor[ Log[10, n] + 1]] == n, AppendTo[l, n]], {n, 10^6}]; l (* Robert G. Wilson v, May 24 2004 *)
-
PARI
isok(n) = frac((n*(n+1)*(2*n+1)/6 - n)/10^#Str(n)) == 0; \\ Michel Marcus, Aug 01 2018
Extensions
More terms from Robert G. Wilson v, May 24 2004
Term corrected (6025 -> 6625) by Robert Dawson, Jul 31 2018
0 inserted by David A. Corneth, Aug 02 2018
Comments