|
|
A251673
|
|
Numbers that are not palindromes, but whose squares are palindromes.
|
|
2
|
|
|
26, 264, 307, 836, 2285, 2636, 22865, 24846, 30693, 798644, 1042151, 1109111, 1270869, 2012748, 2294675, 3069307, 11129361, 12028229, 12866669, 30001253, 64030648, 110091011, 111091111, 306930693, 2062386218, 2481623254, 10106064399, 10109901101, 10110911101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The corresponding sequence excluding numbers in A059744 starts: 1109111, 110091011, 111091111, 10109901101, 10110911101, ....
The sequence is infinite, for instance it contains 111*100^k + 91*10^k + 111 for k > 3. - Emmanuel Vantieghem, Sep 30 2017
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a251673[n_Integer] := Select[Range[n], IntegerDigits[#] != Reverse@IntegerDigits[#] && IntegerDigits[#^2] == Reverse@IntegerDigits[#^2] &]; a251673[10^7] (* Michael De Vlieger, Dec 14 2014 *)
|
|
PROG
|
(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))];
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|