OFFSET
1,1
EXAMPLE
MATHEMATICA
Select[Table[FromDigits[Join[#, #] &@ IntegerDigits[n]], {n, 1, 850, 2}], DivisorSigma[-1, #] > 2 &] (* Amiram Eldar, Jan 18 2025 *)
PROG
(PARI) select(x->(sigma(x)>2*x), vector(1000, n, eval(Str(2*n-1, 2*n-1)))) \\ Michel Marcus, Jan 18 2025
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Omar E. Pol, Jan 17 2025
STATUS
approved