%I A096847
%S A096847 3,4,8,36,100,128,324,400,1296,1600,1936,2116,3364,4356,10404,11236,
%T A096847 20736,22500,26244,27556,28900,30976,38416,40000,52900,53824,57600,
%U A096847 60516,88804,93636,107584,108900,115600,123904,125316,129600,211600
%N A096847 Solutions to {A094471[x]=prime} that is to {x; x*tau[x]-sigma[x]=prime}.
%e A096847 n=8: 8*tau[8]-sigma[8]=8*4-15=32-15=17 is a prime, so 8 is here.
%t A096847 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 A096847 Cf. A094471, A096848.
%Y A096847 Sequence in context: A168382 A155701 A119529 this_sequence A011993 A154714 
               A001695
%Y A096847 Adjacent sequences: A096844 A096845 A096846 this_sequence A096848 A096849 
               A096850
%K A096847 nonn
%O A096847 1,1
%A A096847 Labos E. (labos(AT)ana.sote.hu), Jul 15 2004