A142925 Primes congruent to 1 mod 64.

193, 257, 449, 577, 641, 769, 1153, 1217, 1409, 1601, 2113, 2689, 2753, 3137, 3329, 3457, 4289, 4481, 4673, 4801, 4993, 5441, 5569, 5953, 6337, 6529, 6977, 7297, 7489, 7681, 7873, 7937, 8513, 8641, 9281, 9473, 9601, 9857, 10177, 10369, 10433, 10753, 11329

Offset

1,1

Comments

Odd primes p such that -1 is a 32nd power mod p. - Eric M. Schmidt, Mar 27 2014

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

lst={}; Do[p=Prime[n]; If[Mod[p, 64]==1, AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 26 2009 *)
Select[Prime[Range[1800]], MemberQ[{1}, Mod[#, 64]] &] (* Vincenzo Librandi, Sep 06 2012 *)
Select[Range[1, 12000, 64], PrimeQ] (* Harvey P. Dale, Dec 25 2023 *)

Prog

(Haskell)
a142925 n = a142925_list !! (n-1)
a142925_list = filter ((== 1) . a010051) [1, 65..]
-- Reinhard Zumkeller, Mar 06 2012
(Magma) [p: p in PrimesUpTo(12000) | p mod 64 eq 1 ] ; // Vincenzo Librandi, Sep 06 2012
(PARI) is(n)=isprime(n) && n%64==1 \\ Charles R Greathouse IV, Jul 01 2016

Crossrefs

Cf. A000040, A065091, A002144, A007519, A094407, A133870, A208177, A208178, A076339.

Sequence in context: A363147 A307250 A226147 * A060333 A020352 A146338

Adjacent sequences: A142922 A142923 A142924 * A142926 A142927 A142928

Keyword

nonn,easy

Author

N. J. A. Sloane, Jul 11 2008

Status

approved