|
Search: id:A135027
|
|
|
| A135027 |
|
Numbers n such that the sum of the digits of n^2 is 10. n which are multiples of 10 are omitted. |
|
+0
1
|
|
| 8, 19, 35, 46, 55, 71, 145, 152, 179, 251, 332, 361, 449, 451, 548, 649, 4499, 20249, 20251, 24499, 100549, 114499, 316261
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
A subsequence of A056020. - R. J. Mathar, Feb 10 2008
No further term between 316261 and 10000000. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 20 2009]
|
|
EXAMPLE
|
Corresponding squares are 64, 361, 1225, 2116, 3025, 5041, 21025, 23104, 32041, 63001, 110224, 130321, 201601, 203401, 300304, 421201, 20241001, 410022001, 410103001, 600201001, 10110101401, 13110021001, 100021020121
8^2=64 and 6+4=10. 316261^2=100021020121 and 1+0+0+0+2+1+0+2+0+1+2+1=10. [Zak Seidov (zakseidov(AT)yahoo.com), Aug 26 2009]
|
|
MATHEMATICA
|
s={}; Do[If[Mod[n, 10]>0&&10==Total[IntegerDigits[n^2]], AppendTo[s, n]], {n, 10^8}]; s (* Zak Seidov (zakseidov(AT)yahoo.com), Aug 26 2009 *)
|
|
PROGRAM
|
Contribution from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 20 2009: (Start)
(Python) def A007953(n):
...a=0
...sh=n
...while sh >0:
......a += sh % 10
......sh //= 10
...return a
def isA135027(n):
...if n % 10 == 0:
......return False
...else:
......return A007953(n**2) == 10 ;
for n in range(0, 10000000):
...if isA135027(n):
......print(n)
(End)
|
|
CROSSREFS
|
Sequence in context: A146270 A146222 A140672 this_sequence A158916 A045557 A089111
Adjacent sequences: A135024 A135025 A135026 this_sequence A135028 A135029 A135030
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Feb 10 2008
|
|
|
Search completed in 0.002 seconds
|
