|
%I #18 Jul 15 2021 21:22:49
%S 1,5,6,27,74,963,5723,6142,6524,9867,53152,65766,69714,351732,409761,
%T 497674,624279,664902,697140,781101,2733747,3879405,4897317,5031485,
%U 6317056,6971400,8403702,9324454,16013465,21646858,34679962,36909226,38794051,40781862,41065012
%N Numbers k such that the digits of k^2, reversed, include the digits of k as a substring.
%H Giovanni Resta, <a href="/A115761/b115761.txt">Table of n, a(n) for n = 1..97</a> (terms < 4*10^12)
%e 963^2 = 927(369).
%t fQ[n_] := StringPosition[ IntegerString[n^2], StringReverse@ IntegerString@n] != {}; k = 1; lst = {}; While[k < 38794050, If[ fQ@k, AppendTo[lst, k]]; k++ ]; lst (* _Robert G. Wilson v_, Jul 28 2010 *)
%t Select[Range[37*10^6],SequenceCount[Reverse[IntegerDigits[#^2]], IntegerDigits[ #]]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* _Harvey P. Dale_, May 02 2016 *)
%Y Contains A269588 as a subsequence.
%Y Cf. A115762, A115763, A115764, A115738, A179803.
%K nonn,base
%O 1,2
%A _Giovanni Resta_, Jan 30 2006
%E More terms from _Robert G. Wilson v_, Jul 28 2010
%E Terms a(33) and beyond from _Giovanni Resta_, May 04 2020
|
