OFFSET
1,2
COMMENTS
A solution is not possible for a(1), a(4) and a(6). - Donovan Johnson, Feb 28 2013
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
MATHEMATICA
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] t=Table[0, {100}]; Do[s=Apply[Plus, Intersection [ba[EulerPhi[n]], ba[DivisorSigma[1, n]]]]; If[s<101&&t[[s]]\[Equal]0, t[[s]]=n], {n, 2, 1000000}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 03 2003
STATUS
approved