A185510 Array of primes in the natural number array A000027, by antidiagonals.
2, 7, 3, 11, 5, 13, 29, 17, 31, 19, 37, 23, 139, 59, 41, 67, 47, 193, 109, 71, 61, 79, 107, 409, 157, 83, 97, 43, 137, 173, 499, 257, 281, 331, 73, 53, 191, 233, 823, 439, 383, 601, 127, 113, 199, 211, 353, 1381, 599, 1181, 709, 197, 179, 829, 101, 277, 467, 1543, 907, 1601, 1087, 283, 239, 1549, 163, 89
Offset: 1
Programs
-
Mathematica
f[n_,k_]:=n+(k+n-2)(k+n-1)/2; TableForm[Map[Select[#,PrimeQ]&, Table[f[n,k],{n,1,20}, {k,1,100}]]]
Comments