OFFSET
1,1
COMMENTS
Is this sequence infinite?
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[#, 17] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Jan 16 2016
STATUS
approved