A199799 Totatives of 111111.

1, 2, 4, 5, 8, 10, 16, 17, 19, 20, 23, 25, 29, 31, 32, 34, 38, 40, 41, 43, 46, 47, 50, 53, 58, 59, 61, 62, 64, 67, 68, 71, 73, 76, 79, 80, 82, 83, 85, 86, 89, 92, 94, 95, 97, 100, 101, 103, 106, 107, 109, 113, 115, 116, 118, 122, 124, 125, 127, 128, 131, 134

Offset: 1

Author

Reinhard Zumkeller, Nov 11 2011

Keywords

• nonn
• fini

Comments

a(n) and 111111 are coprime, 111111 = 3*7*11*13*37; empty intersections with A008585, A008593, A008595, or A085959; sequence is finite with 51840 terms, A000010(111111) = 51840, last term: a(51840) = 111110.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Repunit
• Eric Weisstein's World of Mathematics, Totative

Crossrefs

Cf. A109492 (divisors of 111111).

Programs

Haskell

a199799 n = a199799_list !! (n-1)
a199799_list = [x | x <- [1..111111], gcd x 111111 == 1]

Mathematica

Select[Range[200],CoprimeQ[#,111111]&] (* Paolo Xausa, Sep 27 2023 *)