OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
44 is a term since 44 = 2^2 * 11 and 44 + 1 = 45 = 3^2 * 5 both have one unitary prime divisor and one nonunitary prime divisor.
MATHEMATICA
q[n_] := n == 1 || Count[(e = FactorInteger[n][[;; , 2]]), 1] == Length[e]/2; Select[Range[10^3], q[#] && q[# + 1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 30 2021
STATUS
approved