OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..5200
EXAMPLE
a(1) = 36 appears in the list because 36 = 6^2 (square) and 36 + 2 = 38 = 19*2; 36 - 2 = 34 = 17*2; both are semiprime.
a(2) = 121 appears in the list because 121 = 11^2 (square) and 121 + 2 = 123 = 41*3;121 - 2 = 119 = 17*7; both are semiprime.
MATHEMATICA
Select[Table[n^2, {n, 1000}], PrimeOmega[# + 2] == 2 && PrimeOmega[# - 2] == 2 &]
Select[Range[350]^2, PrimeOmega[#+{2, -2}]=={2, 2}&] (* Harvey P. Dale, Jun 14 2021 *)
PROG
(PARI) for(n = 1, 1000, s = n^2; if( bigomega(s+2)==2 && bigomega(s-2)==2, print1(s, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Nov 08 2016
STATUS
approved