1,1
Intersection of A064205 and A065061.
Do[ds1 = DivisorSigma[1, n]; ds0 = DivisorSigma[0, n]; If[ PrimeQ[ds1 + ds0] && PrimeQ[ds1 - ds0], Print[n]], {n, 1, 10^7} ]
Cf. A064205 and A065061.
Sequence in context: A052140 A064755 A140337 this_sequence A061250 A061711 A075387
Adjacent sequences: A065113 A065114 A065115 this_sequence A065117 A065118 A065119
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 12 2001
Search completed in 0.002 seconds