OFFSET
1,1
COMMENTS
It contains all the numbers of the form i^2*10^(2*j+1).
EXAMPLE
4840 = 220*22 = 22^2*10; 4930 = 58*85; 5092 = 67*76; 5605 = 59*95; 5740 = 140*41.
MATHEMATICA
a={}; h=-1; For[k=0, k<=5750, k++, For[m=1, m<=DivisorSigma[0, k], m++, d=Divisors[k]; If[k/Part[d, m] == FromDigits[Reverse[IntegerDigits[Part[d, m]]]] && k>h && !IntegerQ[Sqrt[k]], AppendTo[a, k]; h=k]]]; a
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Stefano Spezia, Jan 20 2023
STATUS
approved