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
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 23 2010
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