|
| |
|
|
A127852
|
|
Numbers n such that A118679(n) = 1.
|
|
2
| |
|
|
1, 3, 10, 19, 24, 30, 43, 51, 58, 62, 73, 75, 82, 94, 101, 106, 115, 116, 118, 128, 138, 147, 149, 159, 160, 163, 167, 172, 183, 186, 190, 191, 195, 201, 211, 214, 219, 249, 250, 252, 253, 260, 266, 272, 274, 277, 279, 283, 290, 294, 296, 306, 309, 310, 318
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| A118679[ a(n) ] = 1, where A118679(n) = {1, 2, 1, 13, 19, 13, 17, 43, 53, 1, 19, ...} = Absolute value of numerator of determinant of n X n matrix with M(i,j) = i/(i+1) if i=j otherwise 1. A118679(n) = Numerator[ (n^2+3n-2)/(2(n+1)!) ] = Numerator[ ((2n+3)^2-17)/(4(n+1)!) ].
|
|
|
FORMULA
| An integer n is in this sequence iff all prime divisors of n^2+3n-2 do not exceed n+1 and n^2+3n-2 is not of the form 2*p^2 for some prime p. [From Max Alekseyev (maxale(AT)gmail.com), Jun 02 2009]
|
|
|
MATHEMATICA
| Select[Range[1000], Numerator[(#^2+3#-2)/(2(#+1)!)]==1&]
|
|
|
CROSSREFS
| Cf. A118679, A118680, A127853.
Sequence in context: A074893 A074178 A178996 * A064027 A028878 A010896
Adjacent sequences: A127849 A127850 A127851 * A127853 A127854 A127855
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 03 2007
|
| |
|
|
