1,1

Table of n, a(n) for n=1..68.

a(n)=A110179(n)+n

Table[k=n+1; e=EulerPhi[n]; While[EulerPhi[k] != 2e, k++ ]; k, {n, 100}]

Sequence in context: A325679 A147198 A147048 * A014414 A087745 A087756

Adjacent sequences: A110189 A110190 A110191 * A110193 A110194 A110195

nonn

T. D. Noe, Jul 15 2005

approved