|
Search: id:A071573
|
|
|
| A071573 |
|
a(0) = 1; a(n) = a(n-1)-th nontotient number. |
|
+0
1
|
|
| 1, 14, 114, 594, 2532, 9658, 34066, 113930, 366358, 1141614
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
a(3)=114 is the 14_th = 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, 7}]
|
|
CROSSREFS
|
Cf. A005277 & A072415.
Sequence in context: A007817 A044346 A044727 this_sequence A076429 A027204 A026959
Adjacent sequences: A071570 A071571 A071572 this_sequence A071574 A071575 A071576
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 20 2002
|
|
|
Search completed in 0.002 seconds
|
