OFFSET
1,1
LINKS
T. D. Noe, Rows n = 1..100 of triangle, flattened
EXAMPLE
The following sequences are read by antidiagonals
{3, 5, 11, 17, 29, 41, 59, 71, 101, 107,...}
{3, 7, 13, 19, 37, 43, 67, 79, 97, 103,...}
{5, 7, 11, 13, 17, 23, 31, 37, 41, 47,...}
{3, 5, 11, 23, 29, 53, 59, 71, 89, 101,...}
{3, 7, 13, 19, 31, 37, 43, 61, 73, 79,...}
{5, 7, 11, 17, 19, 29, 31, 41, 47, 59,...}
{3, 5, 17, 23, 29, 47, 53, 59, 83, 89,...}
{3, 7, 13, 31, 37, 43, 67, 73, 97, 151,...}
{5, 11, 13, 19, 23, 29, 41, 43, 53, 61,...}
{3, 11, 17, 23, 41, 47, 53, 59, 83, 89,...}
...
MAPLE
A231608 := proc(n, k)
local j, p ;
j := 0 ;
p := 2;
while j < k do
if isprime(p+2*n ) then
j := j+1 ;
end if;
if j = k then
return p;
end if;
p := nextprime(p) ;
end do:
end proc:
for n from 1 to 10 do
for k from 1 to 10 do
printf("%3d ", A231608(n, k)) ;
end do;
printf("\n") ;
end do: # R. J. Mathar, Nov 19 2014
MATHEMATICA
nn = 10; t = Table[Select[Range[100*nn], PrimeQ[#] && PrimeQ[# + 2*n] &, nn], {n, nn}]; Table[t[[n-j+1, j]], {n, nn}, {j, n}]
KEYWORD
nonn,tabl
AUTHOR
T. D. Noe, Nov 26 2013
STATUS
approved