A363672 Triangular array: row n lists the primes indexed by the array in A363671.

2, 2, 3, 3, 5, 7, 2, 5, 7, 11, 3, 5, 11, 13, 17, 2, 5, 7, 13, 17, 19, 3, 5, 11, 13, 19, 23, 29, 5, 11, 13, 19, 23, 31, 37, 41, 2, 7, 13, 17, 23, 29, 37, 41, 43, 5, 7, 17, 23, 29, 37, 41, 47, 53, 59, 3, 11, 13, 23, 31, 37, 43, 47, 59, 61, 67, 2, 5, 13, 17, 29

Offset: 1

Author

Clark Kimberling, Jun 15 2023

Keywords

• nonn
• tabl

Comments

Row n lists primes of the form prime(n+2)-2*k where A028334(n) <= k <= A067076(n).

Examples

			First 10 rows:
  2
  2    4
  3    5    7
  2    5    7   11
  3    5   11   13   17
  2    5    7   13   17   19
  3    5   11   13   19   23   29
  5   11   13   19   23   31   37   41
  2    7   13   17   23   29   37   41   43
  5    7   17   23   29   37   41   47   53   59
For row 6, we have prime(8) = 19, and prime 19-2*k is prime for these k: 1, 3, 4, 6, 7, 8. The primes with indexes 1,3,4,6,7,8 are 2,5,7,13,17,19.
		

Crossrefs

Cf. A000040, A087478 (column 1), A363671.

Programs

Mathematica

m[p_] := Select[Range[500], PrimeQ[p - 2 #] && p > 2 # &]
t = Prime[Table[m[Prime[n]], {n, 3, 15}]]
TableForm[t]  (* this sequence as an array *)
Flatten[t]    (* this sequence *)