|
Search: id:A127853
|
|
| |
|
| 10, 17, 26, 36, 37, 45, 50, 59, 61, 65, 67, 78, 82, 90, 91, 94, 101, 102, 105, 108, 110, 122, 136, 138, 145, 147, 149, 153, 155, 165, 170, 173, 181, 183, 188, 189, 193, 197, 210, 213, 220, 224, 226, 231, 232, 239, 249, 250, 257, 262, 263, 266, 268, 276, 279
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Also a(n) are the numbers n such that 1 + Sum[ k, {k,1,n} ] = 1 + n(n+1)/2 divides Product[ k, {k,1,n} ] = n!. A118680[ a(n) ] = 1, where A118680(n) = {2, 2, 7, 11, 2, 11, 29, 37, 23, 1, 67, 79, 23, 53, 11, 137, 1, ...} = Absolute value of numerator of determinant of n X n matrix with M(i,j) = (i+1)/i if i=j otherwise 1. A118680(n) = Numerator[ (1 + n(n+1)/2) / n! ].
|
|
MATHEMATICA
|
Select[Range[1000], Numerator[(1 + #(#+1)/2)/#! ]==1&]
|
|
CROSSREFS
|
Cf. A118680, A118679, A127852.
Sequence in context: A079630 A003333 A092599 this_sequence A034097 A034107 A019991
Adjacent sequences: A127850 A127851 A127852 this_sequence A127854 A127855 A127856
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 03 2007
|
|
|
Search completed in 0.002 seconds
|
