OFFSET
1,1
COMMENTS
Also primes whose prime index is not in A304360, or is in A324696. A prime index of n is a number m such that prime(m) divides n. - Gus Wiseman, Mar 19 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
count:= 0:
P:= {}: A:= NULL:
for n from 2 while count < 100 do
pn:= numtheory:-factorset(n);
if pn intersect P = {} then
P:= P union {ithprime(n)};
if isprime(n) then A:= A, n; count:= count+1 fi;
fi
od:
A; # Robert Israel, Aug 26 2018
MATHEMATICA
aQ[n_]:=n==1||Or@@Cases[FactorInteger[n], {p_, _}:>!aQ[PrimePi[p]]];
Prime[Select[Range[100], aQ]] (* Gus Wiseman, Mar 19 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 26 2018
STATUS
approved