|
Search: id:A105071
|
|
|
| A105071 |
|
Triangular content primes. |
|
+0
1
|
|
| 3, 5, 11, 13, 31, 241, 337, 601, 6481, 14401, 19441, 45361, 100801, 176401, 1088641, 18144001, 32659201, 50803201, 72576001, 199584001, 958003201, 1077753601, 2155507201, 2395008001, 2594592001, 56043187201, 124540416001, 647610163201
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
These triangular content numbers are based on a symmetry of integer matrix determinants
|
|
FORMULA
|
b[n, m] =b[n-1, m]+(m-1)!*n a[q]=If b[n, m] is prime then b[n, m]
|
|
MATHEMATICA
|
a[0, 0] = 1; a[1, 0] = 1; a[n_, 1] := a[n, 1] = n; a[1, m_] := a[1, m] = 1 a[n_, m_] := a[n, m] = a[n - 1, m] + (m - 1)!*n; aa = Delete[Union[Flatten[Table[Table[If[PrimeQ[a[n, m]] == True, a[n, m], 0], {n, 1, m}], {m, 0, 20}]]], 1]
|
|
CROSSREFS
|
Adjacent sequences: A105068 A105069 A105070 this_sequence A105072 A105073 A105074
Sequence in context: A079448 A045407 A095082 this_sequence A089251 A006794 A032457
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Apr 05 2005
|
|
|
Search completed in 0.002 seconds
|
