# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a055664 Showing 1-1 of 1 %I A055664 #24 Mar 19 2022 14:52:30 %S A055664 3,4,7,13,19,25,31,37,43,61,67,73,79,97,103,109,121,127,139,151,157, %T A055664 163,181,193,199,211,223,229,241,271,277,283,289,307,313,331,337,349, %U A055664 367,373,379,397,409,421,433,439,457,463,487,499,523,529,541,547,571 %N A055664 Norms of Eisenstein-Jacobi primes. %C A055664 These are the norms of the primes in the ring of integers a+b*omega, a and b rational integers, omega = (1+sqrt(-3))/2. %C A055664 Let us say that an integer n divides a lattice if there exists a sublattice of index n. Example: 3 divides the hexagonal lattice. Then A003136 (Loeschian numbers) is the sequence of divisors of the hexagonal lattice. Say that n is a "prime divisor" if the index-n sublattice is not contained in any other sublattice except the original lattice itself. The present sequence gives the prime divisors of the hexagonal lattice. Similarly, A055025 (Norms of Gaussian primes) is the sequence of "prime divisors" of the square lattice. - _Jean-Christophe Hervé_, Dec 04 2006 %D A055664 R. K. Guy, Unsolved Problems in Number Theory, A16. %D A055664 L. W. Reid, The Elements of the Theory of Algebraic Numbers, MacMillan, NY, 1910, see Chap. VI. %H A055664 T. D. Noe, Table of n, a(n) for n = 1..1000 %F A055664 Consists of 3; rational primes == 1 (mod 3) [A002476]; and squares of rational primes == -1 (mod 3) [A003627^2]. %e A055664 There are 6 Eisenstein-Jacobi primes of norm 3, omega-omega^2 times one of the 6 units [ +-1, +-omega, +-omega^2 ] but only one up to equivalence. %t A055664 Join[{3}, Select[Range[600], (PrimeQ[#] && Mod[#, 6] == 1) || (PrimeQ[Sqrt[#]] && Mod[Sqrt[#], 3] == 2) & ]] (* _Jean-François Alcover_, Oct 09 2012, from formula *) %o A055664 (PARI) is(n)=(isprime(n) && n%3<2) || (issquare(n,&n) && isprime(n) && n%3==2) \\ _Charles R Greathouse IV_, Apr 30 2013 %Y A055664 Cf. A055665-A055668, A055025-A055029, A135461, A135462. See A004016 and A035019 for theta series of Eisenstein (or hexagonal) lattice. %Y A055664 The Z[sqrt(-5)] analogs are in A020669, A091727, A091728, A091729, A091730 and A091731. %K A055664 nonn,easy,nice %O A055664 1,1 %A A055664 _N. J. A. Sloane_, Jun 09 2000 %E A055664 More terms from _David Wasserman_, Mar 21 2002 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE