A141656 Primes in A141655, as they appear.

2, 3, 5, 7, 11, 17, 11, 13, 13, 17, 19, 67, 19, 23, 29, 31, 53, 79, 31, 37, 41, 53, 61, 37, 43, 53, 41, 47, 71, 191, 43, 53, 71, 107, 47, 53, 83, 107, 53, 449, 59, 151, 353, 61, 89, 193, 67, 83, 89, 103, 167, 191, 223, 71, 149, 73, 89, 107, 229, 401

Offset

0,1

Links

Table of n, a(n) for n=0..59.

Example

{2},
{3},
{5},
{7, 11, 17},
{11, 13},
{13},
{17, 19, 67},
{19},
{23},
{29, 31, 53, 79},
{31, 37, 41, 53, 61}

Mathematica

T[n_, m_] = Floor[Cyclotomic[Prime[n + 1], m/(n + 2)]*Prime[n + 1]];
Table[Flatten[Table[If[PrimeQ[T[n, m]], T[n, m], {}], {m, 0, n}]], {n, 0, 10}];
Flatten[%]

Crossrefs

Sequence in context: A091980 A274113 A005685 * A092180 A050298 A094751

Adjacent sequences: A141653 A141654 A141655 * A141657 A141658 A141659

Keyword

nonn,tabf,less

Author

Roger L. Bagula, Sep 04 2008

Extensions

Edited, new name, and more terms from Jason Yuen, Oct 01 2024

Status

approved