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,1

Comments

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

Links

Table of n, a(n) for n=1..71.

Example

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.

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 *)

Crossrefs

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

Sequence in context: A079955 A192928 A136417 * A322787 A130791 A133277

Adjacent sequences: A363669 A363670 A363671 * A363673 A363674 A363675

Keyword

nonn,tabl

Author

Clark Kimberling, Jun 15 2023

Status

approved