|
|
A256751
|
|
Index of A166133(n) in the list of divisors of A166133(n-1)^2 - 1.
|
|
2
|
|
|
2, 4, 3, 5, 2, 7, 2, 8, 3, 7, 4, 6, 4, 10, 8, 4, 12, 2, 11, 3, 10, 6, 11, 4, 8, 6, 12, 10, 4, 12, 4, 12, 8, 7, 4, 14, 2, 19, 5, 21, 3, 17, 7, 9, 7, 13, 4, 19, 7, 13, 5, 17, 5, 21, 9, 11, 5, 17, 3, 17, 7, 9, 13, 17, 5, 17, 6, 12, 5, 24, 4, 16, 12, 8, 6, 15, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
4,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
9 is the third term of divisors(99) = [1,3,9,11,33,99],
therefore a(12) = 3;
16 is the seventh term of divisors(80) = [1,2,4,5,8,10,16,20,40,80],
therefore a(13) = 7.
|
|
PROG
|
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a256751 n = (+ 1) $ fromJust $
a166133 n `elemIndex` a027750_row' (a166133 (n - 1) ^ 2 - 1)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|