OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MAPLE
isA077800 := proc(n) isprime(n) and ( isprime(n+2) or isprime(n-2)) ; end proc:
isA007510 := proc(n) isprime(n) and not isA077800(n) ; end proc:
isA144550 := proc(n) isA007510(n) and isA077800( nextprime(n)) ; end proc:
for n from 2 to 2500 do if isA144550(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, May 01 2010
MATHEMATICA
Module[{nn=400, tps}, tps=Union[Flatten[Select[Partition[Prime[Range[nn]], 2, 1], #[[2]]-#[[1]] == 2&]]]; Complement[NextPrime[#, -1]&/@tps, tps]] (* Harvey P. Dale, Jun 23 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 31 2008
EXTENSIONS
Corrected (1993 inserted) by R. J. Mathar, May 01 2010
STATUS
approved