A267504 Primes p such that p-1 is squarefree and all prime divisors of p-1 other than 11 are also in the sequence.

2, 3, 7, 23, 43, 47, 67, 139, 283, 463, 659, 947, 967, 1319, 1699, 1979, 3083, 4423, 5683, 5839, 6299, 9227, 10627, 11887, 13259, 18679, 19183, 19447, 19867, 21407, 26539, 30559, 35863, 37379, 39199, 41539, 44087, 44483, 45403, 55399, 63823, 71347, 71359, 74759, 91127, 91463, 115099, 130687, 132527

Offset

1,1

Comments

Is this sequence infinite?

Links

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

Mathematica

fa = FactorInteger; is[2, p_] = True; is[2, p_];
is[n_, p_] := PrimeQ[n] &&  MoebiusMu[n - 1] ≠ 0 && Union@Table[is[fa[n - 1][[i, 1]], p] || fa[n - 1][[ i, 1]] == p , {i, Length[fa[n - 1]]}] == {True}; Select[Prime[Range[10000]], is[#, 11] &]

Crossrefs

Cf. A267503, A267505, A267506, A267507, A005117, A227455, A227007, A227006.

Sequence in context: A072686 A002230 A106865 * A000057 A037231 A248525

Adjacent sequences: A267501 A267502 A267503 * A267505 A267506 A267507

Keyword

nonn

Author

José María Grau Ribas, Jan 16 2016

Status

approved