OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..1360
FORMULA
a(n) = A000230(phi(n)/2) for n >= 3. - Robert Israel, Jan 10 2017
EXAMPLE
a(9) = 23 because 29 - 23 = 6 = phi(9).
MAPLE
A192495 := proc(n) pn := numtheory[phi](n) ; for i from 1 do if ithprime(i+1) -ithprime(i) = pn then return ithprime(i) ; end if; end do: end proc:
seq(A192495(n), n=1..80) ; # R. J. Mathar, Jul 03 2011
MATHEMATICA
a[n_] := If[n==1, 2, (For[m=1, Prime[m+1]-Prime[m]!= EulerPhi[n], m++ ]; Prime[m])]; Table[a[n], {n, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Jul 02 2011
EXTENSIONS
Corrected by R. J. Mathar, Jul 03 2011
STATUS
approved