OFFSET
1,1
COMMENTS
Numbers whose distance to both nearest neighbor numbers in A282430 is 1.
PROG
(Magma) lst:=[]; for n in [3..143433 by 6] do c:=0; e:=Floor(Log(3, n)); m:=0; while m le e do a:=n-3^m; if IsPrime(a+1) or IsPrime(a-1) then break; end if; c+:=1; m+:=1; end while; if c eq e+1 then Append(~lst, n); end if; end for; lst;
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Feb 15 2017
STATUS
approved