OFFSET
1,1
FORMULA
a(n)=A110179(n)+n
MATHEMATICA
Table[k=n+1; e=EulerPhi[n]; While[EulerPhi[k] != 2e, k++ ]; k, {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jul 15 2005
STATUS
approved