A066426 Conjectured values for a(n) = least natural number k such that phi(n+k) = phi(n) + phi(k), if k exists; otherwise 0.
2, 1, 0, 4, 4, 4, 14, 6, 6, 4, 16, 6, 14, 6, 0, 5, 8, 6, 6, 8, 0, 4, 46, 12, 10, 8, 6, 12, 26, 12, 62, 6, 12, 4, 16, 12, 28, 6, 0, 10, 24, 24, 86, 8, 0, 6, 38, 6, 62, 25, 12, 16, 24, 18, 32, 24, 0, 4, 118, 24, 80, 6, 12, 10, 28, 12, 134, 8, 0, 35, 142, 24, 146, 8, 30, 12, 8, 24, 46, 20, 6
Offset: 1
Keywords
References
- R. K. Guy, Unsolved Problems in Number Theory, 3rd Ed., New York, Springer-Verlag, 2004, Section B36.
Crossrefs
Programs
-
Mathematica
a[ n_ ] := Min[ Select[ Range[ 1, 10^6 ], EulerPhi[ 1, n + # ] == EulerPhi[ 1, n ] + EulerPhi[ 1, # ] & ] ]; Table[ a[ i ], {i, 1, 21} ]
Extensions
More terms from T. D. Noe, Jan 20 2004
Comments