%I
%S 3,7,11,13,19,23,29,31,43,47,53,59,61,67,71,73,79,83,89,103,107,109,
%T 113,127,131,139,149,151,157,163,167,173,179,191,193,199,211,223,227,
%U 229,233,239,251,263,269,271,283,293,307,311,313,317,331,347,349,353
%N Primes that can't be written in form a^2 + b^4.
%C Complement of A028916;
%C A256852(A049084(a(n))) = 0.
%H Reinhard Zumkeller, <a href="/A256863/b256863.txt">Table of n, a(n) for n = 1..10000</a>
%t Reap[Do[If[Reduce[p == a^2 + b^4, {a, b}, Integers] === False, Sow[p]], {p, Prime[Range[80]]}]][[2, 1]] (* _JeanFrançois Alcover_, Jan 31 2018 *)
%o (Haskell)
%o a256863 n = a256863_list !! (n1)
%o a256863_list = map a000040 $ filter ((== 0) . a256852) [1..]
%Y Cf. A028916, A000290, A000583, A000040, A256852.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Apr 11 2015
