A316187 Positive integers k that k^2 is a palindrome not containing a 0 digit.

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

Links

Table of n, a(n) for n=1..35.

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

Adjacent sequences: A316184 A316185 A316186 * A316188 A316189 A316190

Keyword

nonn,base

Author

Thana Somsirivattana, Jun 26 2018

Extensions

a(14)-a(35) from Giovanni Resta, Jun 27 2018

Status

approved