OFFSET
1,1
MAPLE
A007758 := proc(n) 2^n*n^2 ; end proc: isA176671 := proc(n) if isprime(n) then for i from 1 do a58 := A007758(i) ; if a58 >n then return true; elif isprime( n-a58) then return false; end if ; end do: else true; end if; end proc: for n from 1 to 200 do p := ithprime(n) ; if isA176671(p) then printf("%d, ", p) ; end if; end do: # R. J. Mathar, Apr 26 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 23 2010
EXTENSIONS
Corrected (37 inserted, 853 removed, 907 removed) by R. J. Mathar, Apr 26 2010
STATUS
approved