|
%I #30 Sep 08 2022 08:46:10
%S 26,264,307,836,2285,2636,22865,24846,30693,798644,1042151,1109111,
%T 1270869,2012748,2294675,3069307,11129361,12028229,12866669,30001253,
%U 64030648,110091011,111091111,306930693,2062386218,2481623254,10106064399,10109901101,10110911101
%N Numbers that are not palindromes, but whose squares are palindromes.
%C The corresponding sequence excluding numbers in A059744 starts: 1109111, 110091011, 111091111, 10109901101, 10110911101, ....
%C The sequence is infinite, for instance it contains 111*100^k + 91*10^k + 111 for k > 3. - _Emmanuel Vantieghem_, Sep 30 2017
%F A029742 INTERSECT A002778.
%t a251673[n_Integer] := Select[Range[n], IntegerDigits[#] != Reverse@IntegerDigits[#] && IntegerDigits[#^2] == Reverse@IntegerDigits[#^2] &]; a251673[10^7] (* _Michael De Vlieger_, Dec 14 2014 *)
%o (Magma) [n: n in [0..3069307] | not Intseq(n, 10) eq Reverse(Intseq(n, 10)) and Intseq(n^2, 10) eq Reverse(Intseq(n^2, 10))];
%o (PARI) for(n=1,10^6,d=digits(n);d2=digits(n^2);if(Vecrev(d2)==d2&&Vecrev(d)!=d,print1(n,", "))) \\ _Derek Orr_, Dec 13 2014
%Y Supersequence of A059744. Cf. A029742, A002778.
%K nonn,base
%O 1,1
%A _Arkadiusz Wesolowski_, Dec 06 2014
|
