OFFSET
1,1
LINKS
Dominic McCarty, Table of n, a(n) for n = 1..10000
MAPLE
q:= k-> andmap(x-> map(i-> i[2], ifactors(x)[2])=[1$3], [2*k-1, 2*k+1]):
select(q, [$1..4000])[]; # Alois P. Heinz, Oct 18 2024
PROG
(PARI) is_a046389(k) = k%2 && omega(k)==3 && bigomega(k)==3;
is_a376734(n) = is_a046389(2*n-1) && is_a046389(2*n+1)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Oct 18 2024
STATUS
approved