login
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
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
Sequence in context: A074046 A123374 A067339 * A283107 A269834 A290200
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 15 2004
STATUS
approved