|
| |
| |
|
|
|
10800, 16200, 18000, 21168, 31752, 40500, 43200, 45000, 49392, 52272, 67500, 72000, 73008, 78408, 84672, 98000, 109512, 111132, 124848, 137200, 145800, 155952, 172800, 172872, 187272, 191664, 197568, 209088, 228528, 233928, 242000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| Solutions to integer values of q=A051903[x]/A051904[x], when A051904[n]>1.
|
|
|
MATHEMATICA
| ffi[x_] :=Flatten[FactorInteger[x]] ep[x_] :=Table[Part[ffi[x], 2*w], {w, 1, lf[x]}] lf[x_] :=Length[FactorInteger[x]] Do[s1=Min[ep[n]]; s2=Max[ep[n]]; If[ !Equal[s1, 1]&&IntegerQ[q=(s2/s1)]&& Equal[Union[Table[IntegerQ[Part[ep[n], j]/s1], {j, 1, lf[n]}]], {False, True}], Print[n]], {n, 2, 10000000}]
|
|
|
CROSSREFS
| Cf. A001597, A051903, A051904, A093769.
Sequence in context: A151934 A151935 A010089 * A190115 A203394 A144716
Adjacent sequences: A093767 A093768 A093769 * A093771 A093772 A093773
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Apr 16 2004
|
| |
|
|
