OFFSET
1,1
LINKS
Rick L. Shepherd, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Select[Range[2, 300], Equal @@ PrimeOmega[# + {-1, 1}] &] (* Amiram Eldar, May 20 2021 *)
PROG
(PARI) IsInA280382(n) = n > 1 && bigomega(n-1) == bigomega(n+1)
(Python)
from sympy import primeomega
def aupto(limit):
prv, cur, nxt, alst = 1, 1, 2, []
for n in range(3, limit+1):
if prv == nxt: alst.append(n)
prv, cur, nxt = cur, nxt, primeomega(n+2)
return alst
print(aupto(282)) # Michael S. Branicky, May 20 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Jan 01 2017
STATUS
approved