OFFSET
1,1
FORMULA
a(3)=182 is the 26th = a(2)-th term in A005277.
MATHEMATICA
a = Table[0, {10^6}]; Do[b = EulerPhi[n]/2; If[b < 10^6 + 1, a[[b]] = 1], {n, 1, 2 10^7}]; b = Select[ Range[10^6], a[[ # ]] == 0 &]; c = 1; Do[ Print[c]; c = 2b[[c]], {n, 0, 8}]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Labos Elemer, Jun 17 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 20 2002
a(11)-a(16) from Donovan Johnson, Oct 29 2010
STATUS
approved