OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
8 is a term since 8 = 2^3 has one nonunitary prime divisor, 2, and no unitary prime divisors, and 8 + 1 = 9 = 3^2 has one nonunitary prime divisor, 3, and no unitary prime divisors.
MATHEMATICA
q[n_] := 2*Count[(e = FactorInteger[n][[;; , 2]]), 1] < Length[e]; Select[Range[5*10^5], q[#] && q[# + 1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 01 2021
STATUS
approved