A058852 Palindromes n such that n and n^2 have same digit sum.

0, 1, 9, 55, 99, 585, 595, 838, 999, 5995, 8668, 9999, 45954, 48384, 55755, 56665, 59895, 59995, 64846, 65656, 77977, 86968, 88488, 89398, 97479, 97579, 99099, 99199, 99999, 158851, 176671, 509905, 549945, 558855, 594495, 599995, 779977

Offset

1,3

Links

R. J. Mathar, Table of n, a(n) for n = 1..399

Maple

read("transforms") :
n := 1;
for i from 1 do
    p := A002113(i) ;
    if digsum(p) = digsum(p^2) then
        printf("%d %d\n", n, p) ;
        n := n+1 ;
    end if;
end do: # R. J. Mathar, Sep 09 2015

Mathematica

Select[Range[0, 78*10^4], PalindromeQ[#]&&Total[IntegerDigits[#]] == Total[ IntegerDigits[ #^2]]&] (* Harvey P. Dale, Sep 26 2021 *)

Crossrefs

Cf. A058369, A058370, A007953.

Sequence in context: A157588 A270575 A058849 * A145875 A299519 A068970

Adjacent sequences: A058849 A058850 A058851 * A058853 A058854 A058855

Keyword

nonn,base,easy

Author

Patrick De Geest, Dec 15 2000

Status

approved