login
A176676
Primes not of the form prime + k^2*2^(k-1).
0
2, 5, 7, 17, 23, 29, 71, 101, 113, 127, 179, 191, 197, 223, 239, 251, 257, 281, 283, 311, 331, 337, 359, 401, 449, 463, 491, 521, 541, 569, 587, 617, 647, 659, 673, 701, 733, 739, 743, 757, 761, 827, 853, 877, 881, 883, 907, 911, 929, 953, 997, 1051, 1063, 1093
OFFSET
1,1
MAPLE
From R. J. Mathar, Apr 27 2010: (Start)
A014477 := proc(n) (n+1)^2*2^n ; end proc:
isA176676 := proc(p) local n, a77 ; if not isprime(p) then return false; end if; for n from 1 do a77 := A014477(n-1) ; if isprime(p-a77) then return false; elif p-a77<2 then return true; end if; end do: end proc:
for n from 1 to 300 do p := ithprime(n) ; if isA176676(p) then printf("%d, ", p) ; end if; end do: (End)
CROSSREFS
Cf. A014477.
Sequence in context: A110254 A019084 A278487 * A307452 A066028 A066039
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected (149 replaced by 179, 269 removed, 643 removed, 743 and 911 and 1053 inserted) by R. J. Mathar, Apr 27 2010
STATUS
approved