|
| |
|
|
A038189
|
|
Bit to left of least significant 1-bit in binary expansion of n.
|
|
12
| |
|
|
0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Characteristic function of A091067.
a(n)=1 if kronecker(-n,m)=kronecker(m,n) for all m, otherwise a(n)=0. - Michael Somos Sep 22 2005
|
|
|
LINKS
| Michael Gilleland, Some Self-Similar Integer Sequences
Index entries for characteristic functions
|
|
|
FORMULA
| a(0) = 0, a(2n) = a(n) for n>0, a(4n+1) = 0, a(4n+3) = 1.
G.f.: sum (k>=0, t^3/(1-t^4), t=x^2^k). Parity of A025480. a(n) = 1/2 * (1 - (-1)^A025480(n)). - Ralf Stephan (ralf(AT)ark.in-berlin.de), Jan 04 2004
|
|
|
EXAMPLE
| a(6) = 1 since 6 = 110 and bit before right-most 1 is a 1.
|
|
|
MATHEMATICA
| f[n_] := IntegerDigits[n, 2][[2]]; f[0] = f[1] = 0; Table[f@n, {n, 0, 104}] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 14 2009]
f[n_] := f[n] = Switch[ Mod[n, 4], 0, g[n/2], 1, 0, 2, g[n/2], 3, 1]; Table[ f@n, {n, 0, 104}] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 14 2009]
|
|
|
PROG
| (C) int a(int n) { return (n & ((n&-n)<<1)) ? 1 : 0; } - from Russ Cox (rsc(AT)swtch.com)
(PARI) a(n) = if(n<1, 0, ((n/2^valuation(n, 2)-1)/2)%2) /* Michael Somos Sep 22 2005 */
(PARI) a(n) = if(n<3, 0, prod(m=1, n, kronecker(-n, m)==kronecker(m, n))) /* Michael Somos Sep 22 2005 */
|
|
|
CROSSREFS
| Cf. A038190.
A014707(n)=a(n+1). A014577(n)=1-a(n+1).
A038189(n)=A014707(n-1). [From Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 14 2009]
Sequence in context: A100283 A134391 A102215 * A072783 A064911 A174898
Adjacent sequences: A038186 A038187 A038188 * A038190 A038191 A038192
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Fred Lunnon (fred(AT)csa5.cs.may.ie)
|
|
|
EXTENSIONS
| More terms from David W. Wilson (davidwwilson(AT)comcast.net)
Definition corrected by Russ Cox and Ralf Stephan, Nov 08 2004
|
| |
|
|
