|
| |
|
|
A096848
|
|
Primes arising in A096847, that is primes created as follows: A094471[A096847(n)]. Primes of m*tau[m]-sigma[m] form with m-s listed in A096847.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A132198 A111635 A041455
Adjacent sequences: A096845 A096846 A096847 * A096849 A096850 A096851
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jul 15 2004
|
| |
|
|
