|
| |
|
|
A074231
|
|
Numbers n such that Kronecker(8,n)==mu(gcd(8,n)).
|
|
1
| |
|
|
1, 4, 7, 8, 9, 12, 15, 16, 17, 20, 23, 24, 25, 28, 31, 32, 33, 36, 39, 40, 41, 44, 47, 48, 49, 52, 55, 56, 57, 60, 63, 64, 65, 68, 71, 72, 73, 76, 79, 80, 81, 84, 87, 88, 89, 92, 95, 96, 97, 100, 103, 104, 105, 108, 111, 112, 113, 116, 119, 120, 121, 124, 127, 128, 129
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| A Chebyshev transform of (1+2x)/(1-2x) (A046055) given by G(x)->(1/(1+x^2))G(x/(1+x^2)). - Paul Barry (pbarry(AT)wit.ie), Oct 27 2004
|
|
|
FORMULA
| G.f.(1+x)^2/((1+x^2)(1-2x+x^2)); E.g.f. : exp(x)(2+2x)-cos(x); a(n)=2n+2-cos(pi*n/2); a(n)=sum{k=0..n, (0^k+4^k)cos(pi*(n-k)/2)}; a(n)=sum{k=0..floor(n/2), C(n-k, k)(-1)^k(2*2^(n-2k)-0^(n-2k)}; a(n)=2a(n-1)-2a(n-2)+2a(n-3)-a(n-4). - Paul Barry (pbarry(AT)wit.ie), Oct 27 2004
|
|
|
PROG
| (PARI) for (x=1, 200, for (y=1, 200, if (kronecker(x, y)==moebius(gcd(x, y)), write("km.txt", x, "; ", y, " : ", kronecker(x, y)))))
(Other) SAGE: [lucas_number1(n+2, 0, 1)+2*n for n in xrange(1, 66)] [From Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Mar 09 2009]
|
|
|
CROSSREFS
| Cf. A047538.
Sequence in context: A161986 A020670 A047538 * A076680 A001074 A026316
Adjacent sequences: A074228 A074229 A074230 * A074232 A074233 A074234
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Sep 17 2002
|
| |
|
|
