|
Search: id:A118132
|
|
|
| A118132 |
|
Triangular all primes power form (with new guaranteed near prime function using Prime[PrimePi[n^m+2]]). |
|
+0
1
|
|
| 3, 5, 5, 11, 17, 23, 29, 61, 127, 211, 83, 257, 619, 1297, 2399, 241, 1021, 3121, 7759, 16787, 32749, 727, 4093, 15619, 46649, 117643, 262139, 531383, 2179, 16381, 78121, 279919, 823541, 2097143, 4782971, 9999991, 6563, 65537, 390581, 1679609
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
The function produces all primes, but they aren't all unique.
|
|
FORMULA
|
a(n,m) = If[PrimeQ[n^m + 2], n^m + 2, Prime[PrimePi[n^m + 2]]]
|
|
EXAMPLE
|
3
5, 5
11, 17, 23
29, 61, 127, 211
83, 257, 619, 1297, 2399
241, 1021, 3121, 7759, 16787, 32749
727, 4093, 15619, 46649, 117643, 262139, 531383
2179, 16381, 78121, 279919, 823541, 2097143, 4782971, 9999991
|
|
MATHEMATICA
|
f[n_, m_] := If[PrimeQ[n^m + 2], n^m + 2, Prime[PrimePi[n^m + 2]]] a = Table[Table[f[n, m], {n, 3, m + 3}], {m, 0, 9}] c = Flatten[a]
|
|
CROSSREFS
|
Sequence in context: A049757 A098971 A093572 this_sequence A089167 A028265 A084041
Adjacent sequences: A118129 A118130 A118131 this_sequence A118133 A118134 A118135
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 13 2006
|
|
|
Search completed in 0.002 seconds
|
