OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(4) = 10 is a term because 10 - 2 = 8 = 2^3 and 10 + 2 = 12 = 2^2 * 3 are both products of 3 primes, counted with multiplicity.
MAPLE
M:= map(numtheory:-bigomega, [$1..10^3]):
select(k -> M[k-2] = M[k+2], [$3 .. 10^3 - 2]);
MATHEMATICA
Select[Range[3, 245], PrimeOmega[#-2]==PrimeOmega[#+2]&] (* Stefano Spezia, Apr 01 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Apr 01 2024
EXTENSIONS
Suggested by Joerg Arndt
STATUS
approved