|
Search: id:A096848
|
|
| |
|
| 2, 5, 17, 233, 683, 769, 4013, 5039, 28649, 29663, 24917, 15173, 24179, 105509, 252971, 81083, 871289, 941429, 639701, 199193, 713681, 768389, 873569, 1300813, 1308299, 1019687, 4459667, 1477139, 642779, 3953591, 2040443, 8445707, 4906973
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[s=n*DivisorSigma[0, n]-DivisorSigma[1, n]; If[PrimeQ[s], Print[{n, s}]; ta[[u]]=n; tb[[u]]=s; u=u+1], {n, 1, 1000000}]; ta
|
|
CROSSREFS
|
Cf. A094471, A096848.
Sequence in context: A074046 A123374 A067339 this_sequence A132198 A111635 A041455
Adjacent sequences: A096845 A096846 A096847 this_sequence A096849 A096850 A096851
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 15 2004
|
|
|
Search completed in 0.002 seconds
|
