|
|
A199799
|
|
Totatives of 111111.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
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
|
Eric Weisstein's World of Mathematics, Repunit
Eric Weisstein's World of Mathematics, Totative
|
|
MATHEMATICA
|
Select[Range[200], CoprimeQ[#, 111111]&] (* Paolo Xausa, Sep 27 2023 *)
|
|
PROG
|
(Haskell)
a199799 n = a199799_list !! (n-1)
a199799_list = [x | x <- [1..111111], gcd x 111111 == 1]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|