STATUS
editing
approved
editing
approved
Table[If[PrimeQ[EulerPhi[n]+1], 1, 0], {n, 120}] (* Harvey P. Dale, Apr 23 2020 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
1,1
approved
editing
proposed
approved
editing
proposed
For all n, a(n) >= A010051(n) and a(2n) >= A010051(n). - See Vladimir Shevelev second comment dated May 10 2008 in A039698.
proposed
editing