A065397 Primes which have no representation p + k*(k+1) / 2, with p prime and k > 0: A000040-Complement of A065396.
2, 7, 61, 211
Offset: 1
Programs
-
Maple
for n from 1 to 7000000 do if isprime(n) = true then foundp := false ; for k from 1 to n do if isprime(n-k*(k+1)/2) = true then foundp := true ; break ; elif n-k*(k+1)/2 < 2 then break ; fi ; od ; if foundp = false then print(n) ; fi ; fi ; od : # R. J. Mathar, Apr 23 2006
Comments