|
| |
|
|
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
|
A166133(n) = A027750(A166133(n-1)^2-1,a(n)).
|
|
|
LINKS
|
Reinhard Zumkeller, Table of n, a(n) for n = 4..10000
|
|
|
EXAMPLE
|
n = 12: A166133(12) = 9, A166133(12-1) = 10, 10^2 - 1 = 99,
9 is the third term of divisors(99) = [1,3,9,11,33,99],
therefore a(12) = 3;
n = 13: A166133(13) = 16, A166133(13-1) = 9, 9^2 - 1 = 80,
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
|
Cf. A166133, A027750.
Sequence in context: A136743 A011387 A019656 * A249484 A134017 A292285
Adjacent sequences: A256748 A256749 A256750 * A256752 A256753 A256754
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Reinhard Zumkeller, Apr 09 2015
|
|
|
STATUS
|
approved
|
| |
|
|
