|
|
A186771
|
|
Numbers m such that A186711(m) = 1.
|
|
5
|
|
|
1, 2, 3, 6, 12, 27, 48, 130, 252, 705, 1386, 2295, 7125, 17316, 31959, 51054, 74601, 102600, 351315, 748440, 2123189, 4198848, 6975417, 10452896, 14631285, 19510584, 25090793, 31371912, 38353941, 46036880, 54420729, 63505488, 73291157
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
n = 12, a(12) = 2295:
A003586(2295) = 19342813113834066795298816 = 2^84,
A003586(2296) = 19383245667680019896796723 = 3^53 and GCD(2^84,3^53)=1.
|
|
PROG
|
(Haskell)
import Data.List (findIndices)
a186771 n = a186771_list !! (n-1)
a186771_list = map (+ 1) $ findIndices (== 1) a186711_list
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|