login
A316187
Positive integers k that k^2 is a palindrome not containing a 0 digit.
0
1, 2, 3, 11, 22, 26, 111, 121, 212, 264, 307, 836, 1111, 2285, 2636, 11011, 11111, 11211, 24846, 111111, 798644, 1101011, 1102011, 1110111, 1111111, 2294675, 11011011, 11100111, 11111111, 11129361, 12028229, 12866669, 110101011, 110111011, 111010111
OFFSET
1,2
EXAMPLE
264 is in the sequence because 264^2 = 69696, which is a palindrome.
MATHEMATICA
palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse@d]; Select[ Range[10^6], Min@ IntegerDigits[#^2] > 0 && palQ[#^2] &] (* Giovanni Resta, Jun 27 2018 *)
PROG
(PARI) is(n) = my(d=digits(n^2)); d==Vecrev(d) && vecmin(d) > 0 \\ Felix Fröhlich, Jun 29 2018
CROSSREFS
Subsequence of A002778.
Sequence in context: A305719 A002778 A028816 * A215952 A276375 A128921
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(14)-a(35) from Giovanni Resta, Jun 27 2018
STATUS
approved