|
%I #3 Mar 30 2012 17:34:21
%S 3,5,5,11,17,23,29,61,127,211,83,257,619,1297,2399,241,1021,3121,7759,
%T 16787,32749,727,4093,15619,46649,117643,262139,531383,2179,16381,
%U 78121,279919,823541,2097143,4782971,9999991,6563,65537,390581,1679609
%N Triangle read by rows n>=0: the largest prime <= m^n+2 in columns m=3..n+3.
%F a(n,m) = A007917(m^n+2) .
%e The triangle starts in row n=0 as:
%e 3;
%e 5, 5 ;
%e 11, 17, 23 ;
%e 29, 61, 127, 211 ;
%e 83, 257, 619, 1297, 2399 ;
%e 241, 1021, 3121, 7759, 16787, 32749 ;
%e 727, 4093, 15619, 46649, 117643, 262139, 531383 ;
%e 2179, 16381, 78121, 279919, 823541, 2097143, 4782971, 9999991 ;
%t 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]
%K nonn,tabl
%O 0,1
%A _Roger L. Bagula_, May 13 2006
%E Definition simplified, formula simplified by Assoc. Eds. of the OEIS, Jun 15 2010
|
