login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A031361 Number of coincidence site lattices of index n in lattice Z^4. 0
1, 2, 16, 0, 36, 32, 64, 0, 168, 72, 144, 0, 196, 128, 576, 0, 324, 336, 400, 0, 1024, 288, 576, 0, 960, 392, 1584, 0, 900, 1152, 1024, 0, 2304, 648, 2304, 0, 1444, 800, 3136, 0, 1764, 2048, 1936, 0, 6048, 1152, 2304, 0, 3248, 1920, 5184, 0, 2916, 3168, 5184, 0 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Dirichlet product of 1 + 2/2^s with Sum_{n>=1} A031360(n)/(2n-1)^s. - R. J. Mathar, Jul 16 2010

REFERENCES

M. Baake, "Solution of coincidence problem...", in R. V. Moody, ed., Math. of Long-Range Aperiodic Order, Kluwer 1997, pp. 9-44.

LINKS

Table of n, a(n) for n=1..56.

FORMULA

Dirichlet series: (1+2^(1-s))* Product (1+p^(-s))*(1+p^(1-s))/((1-p^(1-s))*(1-p^(2-s))); p != 2.

MAPLE

read("transforms") : maxOrd := 120 :

ZetaNum := proc(p, nmax, f) local n ; L := [1, seq(0, n=2..p-1), f, seq(0, n=p+1..nmax)] ; end proc:

Zeta := proc(p, nmax, f) local L, e; L := [1, seq(0, n=2..nmax)] ; for e from 1 do if p^e > nmax then break; else L := subsop(p^e=f^e, L) ; end if; end do: L ; end proc:

Zetap := ZetaNum(2, maxOrd, 2): for e from 3 to maxOrd do if isprime(e) then ZetaNum(e, maxOrd, 1) ; Zetap := DIRICHLET(Zetap, %) ; ZetaNum(e, maxOrd, e) ; Zetap := DIRICHLET(Zetap, %) ; Zeta(e, maxOrd, e) ; Zetap := DIRICHLET(Zetap, %) ; Zeta(e, maxOrd, e^2) ; Zetap := DIRICHLET(Zetap, %) ; end if; end do: Zetap ;

# R. J. Mathar, Jul 16 2010

CROSSREFS

Sequence in context: A294195 A175982 A136666 * A155955 A221076 A230513

Adjacent sequences:  A031358 A031359 A031360 * A031362 A031363 A031364

KEYWORD

nonn,easy,nice

AUTHOR

N. J. A. Sloane

EXTENSIONS

More terms from R. J. Mathar, Jul 16 2010

Typo in formula (exclamation mark for 1) corrected by R. J. Mathar, Jul 23 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 20 11:28 EDT 2019. Contains 325180 sequences. (Running on oeis4.)