A323061 Numbers n that are not multiples of 10 and such that 10*n*R(n) is a square, where R(n) = A004086(n) is the decimal digits of n reversed.
544968, 547658, 560106, 601065, 856745, 869445, 2495295, 4601685, 5606106, 5861064, 5925942, 6016065, 20861005, 21778875, 22972005, 29389855, 42251835, 50016802, 50027922, 51826326, 53815224, 55898392, 56066106, 56570706, 56873466, 57887712, 60166065, 60707565
Offset: 1
Examples
238026195 * 591620832 * 10 = 1186681320^2.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..200 (first 54 terms from Chai Wah Wu)
Programs
-
Mathematica
Select[Range[61*10^6],Mod[#,10]!=0&&IntegerQ[Sqrt[10# IntegerReverse[ #]]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 16 2020 *)
-
PARI
isok(n) = (n % 10) && issquare(10*n*fromdigits(Vecrev(digits(n)))); \\ Michel Marcus, Jan 10 2019
Comments