|
%I #29 Apr 03 2023 10:36:11
%S 84,1302,10584,11382,12012,12558,13356,15498,19362,20286,20496,22092,
%T 23142,23772,25452,26418,26502,26544,28644,29274,29778,31374,31962,
%U 35406,36876,37338,39522,40152,40488,41286,42924,43428,45108,46116,47754,47796,48678
%N Numbers n such that n^6 + 545 is prime.
%H Arkadiusz Wesolowski, <a href="/A163592/b163592.txt">Table of n, a(n) for n = 1..1000</a>
%H G. L. Honaker, Jr. and Chris Caldwell, <a href="https://t5k.org/curios/cpage/19149.html">Prime Curios! 545</a>
%t Select[Range[0, 48678, 2], PrimeQ[#^6 + 545] &] (* _Arkadiusz Wesolowski_, Mar 05 2011 *)
%o (Magma) [n : n in [0..48678 by 2] | IsPrime(n^6+545)]; // _Arkadiusz Wesolowski_, Mar 05 2011
%o (PARI) forstep(n=0, 48678, 2, if(isprime(n^6+545), print1(n, ", "))); \\ _Arkadiusz Wesolowski_, Mar 05 2011
%Y Cf. A133870, A161998, A066386, A126893, A119276.
%K nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Aug 01 2009
|
