OFFSET
0,3
MATHEMATICA
Table[k = 1; While[! Divisible[DivisorSigma[1, k], EulerPhi[k + n]], k++]; k, {n, 0, 72}] (* Jayanta Basu, Jul 25 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved