A096848 - OEIS

%I #4 Oct 15 2013 22:32:32

%S 2,5,17,233,683,769,4013,5039,28649,29663,24917,15173,24179,105509,

%T 252971,81083,871289,941429,639701,199193,713681,768389,873569,

%U 1300813,1308299,1019687,4459667,1477139,642779,3953591,2040443,8445707,4906973

%N 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.

%t 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

%Y Cf. A094471, A096848.

%K nonn

%O 1,1

%A _Labos Elemer_, Jul 15 2004