|
Search: id:A096847
|
|
|
| A096847 |
|
Solutions to {A094471[x]=prime} that is to {x; x*tau[x]-sigma[x]=prime}. |
|
+0
2
|
|
| 3, 4, 8, 36, 100, 128, 324, 400, 1296, 1600, 1936, 2116, 3364, 4356, 10404, 11236, 20736, 22500, 26244, 27556, 28900, 30976, 38416, 40000, 52900, 53824, 57600, 60516, 88804, 93636, 107584, 108900, 115600, 123904, 125316, 129600, 211600
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=8: 8*tau[8]-sigma[8]=8*4-15=32-15=17 is a prime, so 8 is here.
|
|
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: A073313 A155701 A119529 this_sequence A011993 A154714 A001695
Adjacent sequences: A096844 A096845 A096846 this_sequence A096848 A096849 A096850
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 15 2004
|
|
|
Search completed in 0.002 seconds
|
