OFFSET
1,1
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 1..10000
MAPLE
isA140546 := proc(n)
if isprime(n) then
if isprime(n+6) or isprime(n-6) then
false;
else
true;
end if;
else
false ;
end if;
end proc:
A140546 := proc(n)
option remember;
local a;
if n = 1 then
2 ;
else
a := nextprime(procname(n-1)) ;
while true do
if isA140546(a) then
return a;
else
a := nextprime(a) ;
end if;
end do:
end if;
end proc:
seq(A140546(n), n=1..80) ; # R. J. Mathar, Jun 10 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Jun 30 2008
EXTENSIONS
Corrected and extended by Charles R Greathouse IV, Mar 25 2010
STATUS
approved