OFFSET
1,1
COMMENTS
Both n and n+1 are terms in A112775.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= n -> numtheory:-bigomega(6*n+1) = 2 and numtheory:-bigomega(6*n+7) = 2:
select(filter, [$1..1000]); # Robert Israel, Dec 23 2024
MATHEMATICA
po[x_]=PrimeOmega[x]; Select[Range[500], po[6# + 1] == po[6# + 7] == 2 &]
PROG
(PARI) for(n=1, 388, if(bigomega(6*n + 1) == 2 && bigomega(6*n + 7) == 2, print1(n, ", "))) \\ Indranil Ghosh, Mar 15 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 14 2017
STATUS
approved