A267507 Prime numbers n such that n-1 is squarefree and all prime divisors of n-1 other than 19 are in the sequence.

2, 3, 7, 43, 4903, 168241543, 5773040306503

Offset

1,1

Links

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

Mathematica

S[1] = {2, 19}; PR[S_] := Product[S[[i]], {i, Length[S]}];
S[m_] := S[m] =  Union[S[m - 1], Select[Table[PR[Subsets[S[m - 1]] [[i]]] + 1, {i, 2^Length[S[m - 1]]}], PrimeQ]]; A267507 = Complement[S[7], {19}]
(* S[7]=S[8] ==> sequence is finite and full; José María Grau Ribas, Nov 22 2021 *)

Crossrefs

Cf. A267503, A267504, A267505, A267506, A267507.

Sequence in context: A082993 A071580 A359340 * A344561 A014546 A068393

Adjacent sequences: A267504 A267505 A267506 * A267508 A267509 A267510

Keyword

nonn,fini,full

Author

José María Grau Ribas, Jan 16 2016

Status

approved