OFFSET
1,1
EXAMPLE
211050 is in the sequence because 211049, 211051, 422099, 422101, 844199 and 844201 are all prime.
MAPLE
isA069175 := proc(k)
if isprime(k-1) and isprime(k+1) and isprime(2*k-1) and isprime(2*k+1) and isprime(4*k-1) and isprime(4*k+1) then
true ;
else
false;
end if;
end proc:
n := 1 :
for k from 4 by 2 do # create b-file
if isA069175(k) then
printf("%d %d\n", n, k) ;
n := n+1 ;
end if;
end do: # R. J. Mathar, Nov 02 2023
MATHEMATICA
lst={}; Do[If[PrimeQ[n-1]&&PrimeQ[n+1]&&PrimeQ[2*n-1]&&PrimeQ[2*n+1]&&PrimeQ[4*n-1]&&PrimeQ[4*n+1], Print[n]; AppendTo[lst, n]], {n, 11!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 05 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Don Reble, Apr 09 2002
EXTENSIONS
Offset changed to 1 by Georg Fischer, Sep 23 2022
STATUS
approved