cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A251673 Numbers that are not palindromes, but whose squares are palindromes.

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