|
| |
|
|
A096847
|
|
Solutions to {A094471[x]=prime} that is to {x; x*tau[x]-sigma[x]=prime}.
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A155701 A119529 A180629 * A011993 A180169 A154714
Adjacent sequences: A096844 A096845 A096846 * A096848 A096849 A096850
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jul 15 2004
|
| |
|
|
