|
Search: id:A071598
|
|
|
| A071598 |
|
a(0) = 1; a(n) = half of the a(n-1)_th even nontotient number. |
|
+0
1
|
|
| 1, 7, 34, 115, 298, 677, 1431, 2853, 5401, 9813, 17289, 29687, 49901, 82315, 133617, 213801, 337742, 527231, 814218
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
a(5)=373=746/2, where 746 is the a(4)=149_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 = b[[c]], {n, 0, 18}]
|
|
CROSSREFS
|
Cf. A005277 & A072416.
Sequence in context: A117663 A063166 A024817 this_sequence A120470 A036423 A036632
Adjacent sequences: A071595 A071596 A071597 this_sequence A071599 A071600 A071601
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 20 2002
|
|
|
Search completed in 0.002 seconds
|
