OFFSET
1,2
COMMENTS
No additional terms up to 5*10^6. - Harvey P. Dale, Sep 14 2012
EXAMPLE
sigma(47619)*prime(47619) = 82992*580477 = 48174947184.
MATHEMATICA
dspQ[n_]:=Module[{c=IntegerDigits[DivisorSigma[1, n]Prime[n]]}, c == Reverse[c]]; Select[Range[50000], dspQ] (* Harvey P. Dale, Sep 14 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved