|
Search: id:A119958
|
|
|
| A119958 |
|
Numerator of determinant of n X n matrix with elements M[i,j] = (p^2 - p + 1)/(p*(p-1)) if i=j and 1 otherwise, where p=Prime[i]. |
|
+0
3
|
|
| 3, 7, 147, 301, 33411, 1748509, 36718689, 4198170109, 709490748421, 82402282638039, 1345903949754637, 1564158644309443, 855594778437265321, 5136411178193150947, 3703352459477261832787, 261798531558431048025481
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
All square prime divisors of a(n) {7,13,43,139,19,31,61,37,607,523,67,79,1201,241,1171,157,109,...} belong to A002476[n] Primes of form 6n + 1.
|
|
MATHEMATICA
|
Numerator[ Table[ Det[ DiagonalMatrix[ Table[1/(Prime[i]*(Prime[i]-1)), {i, 1, n} ] + 1 ]], {n, 1, 150}]]
|
|
CROSSREFS
|
Cf. A002476, A036689, A002061.
Adjacent sequences: A119955 A119956 A119957 this_sequence A119959 A119960 A119961
Sequence in context: A005844 A012636 A006031 this_sequence A031881 A114789 A128273
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Aug 02 2006
|
|
|
Search completed in 0.002 seconds
|
