|
Search: id:A076376
|
|
| |
|
| 3, 35, 105, 210, 1045, 1485, 2970, 3135, 6270, 24871, 29029, 35343, 39105, 50065, 58435, 64285, 70686, 71145, 74613, 78210, 87087, 87685, 124605, 137885, 140335, 142290, 149226, 150195, 174174, 175305, 176715, 192855, 249210, 263055, 300390
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
f[x_] := DivisorSigma[1, x]/EulerPhi[x] Do[s=f[n]; s1=f[2*n]; s2=f[4*n]; If[IntegerQ[s]&&IntegerQ[s1]&&IntegerQ[s2], Print[n]], {n, 1, 1000000}]
|
|
CROSSREFS
|
Cf. A000010, A000203, A055234, A020492, A076375.
Sequence in context: A054287 A001539 A113854 this_sequence A133710 A130061 A061548
Adjacent sequences: A076373 A076374 A076375 this_sequence A076377 A076378 A076379
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Oct 15 2002
|
|
|
Search completed in 0.002 seconds
|
