A316187 - OEIS

%I #17 Jul 01 2018 10:33:04

%S 1,2,3,11,22,26,111,121,212,264,307,836,1111,2285,2636,11011,11111,

%T 11211,24846,111111,798644,1101011,1102011,1110111,1111111,2294675,

%U 11011011,11100111,11111111,11129361,12028229,12866669,110101011,110111011,111010111

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

%e 264 is in the sequence because 264^2 = 69696, which is a palindrome.

%t palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse@d]; Select[ Range[10^6], Min@ IntegerDigits[#^2] > 0 && palQ[#^2] &] (* _Giovanni Resta_, Jun 27 2018 *)

%o (PARI) is(n) = my(d=digits(n^2)); d==Vecrev(d) && vecmin(d) > 0 \\ _Felix Fröhlich_, Jun 29 2018

%Y Subsequence of A002778.

%K nonn,base

%O 1,2

%A _Thana Somsirivattana_, Jun 26 2018

%E a(14)-a(35) from _Giovanni Resta_, Jun 27 2018