OFFSET
1,1
LINKS
FORMULA
Even terms in sequence are 2*A048161(n)^2. - Ray Chandler, Jun 24 2019
EXAMPLE
18 is a member as 18 = 3^2*2 and 20 = 2^2*5.
MATHEMATICA
lst={}; Do[f1=FactorInteger[n]; If[Sort[Transpose[f1][[2]]]=={1, 2}, f2=FactorInteger[n+2]; If[Sort[Transpose[f2][[2]]]=={1, 2}, AppendTo[lst, n]]], {n, 3, 10000}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 30 2002
EXTENSIONS
More terms from T. D. Noe, Oct 04 2004
STATUS
approved