OFFSET
1,1
MAPLE
isA007510 := proc(n) isprime(n) and not isprime(n+2) and not isprime(n-2) ; simplify(%) ; end proc:
A167394 := proc(n) local a; for a from A014574(n)-1 by -1 do if isA007510(a) then return a; end if; end do: end proc:
seq(A167394(n), n=1..120) ; # R. J. Mathar, May 30 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 02 2009
EXTENSIONS
Corrected (47 replaced with 53, 211 replaced with 223, etc.) by R. J. Mathar, May 30 2010
STATUS
approved