A115893 Numbers k such that sigma(k)*prime(k) is a palindrome.
1, 2, 5, 4813, 47619
Offset: 1
Examples
sigma(47619)*prime(47619) = 82992*580477 = 48174947184.
Programs
-
Mathematica
dspQ[n_]:=Module[{c=IntegerDigits[DivisorSigma[1,n]Prime[n]]},c == Reverse[c]]; Select[Range[50000],dspQ] (* Harvey P. Dale, Sep 14 2012 *)
Comments