A168184 -id:A168184 - cp's OEIS frontend

A011655 Period 3: repeat [0, 1, 1].

0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1

Offset: 0

N. J. A. Sloane

A binary m-sequence: expansion of reciprocal of x^2+x+1 (mod 2).
A Chebyshev transform of the Jacobsthal numbers A001045: if A(x) is the g.f. of a sequence, map it to ((1-x^2)/(1+x^2))*A(x/(1+x^2)). - Paul Barry, Feb 16 2004
This is the r = 1 member of the r-family of sequences S_r(n) defined in A092184 where more information can be found.
This is the Fibonacci sequence (A000045) modulo 2. - Stephen Jordan (sjordan(AT)mit.edu), Sep 10 2007
For n > 0: a(n) = A084937(n-1) mod 2. - Reinhard Zumkeller, Dec 16 2007
This is also the Lucas numbers (A000032) mod 2. In general, this is the parity of any Lucas sequence associated with any pair (P,Q) when P and Q are odd; i.e., a(n) = U_n(P,Q) mod 2 = V_n(P,Q) mod 2. See Ribenboim. - Rick L. Shepherd, Feb 07 2009
Starting with offset 1: (1, 1, 0, 1, 1, 0, ...) = INVERTi transform of the tribonacci sequence A001590 starting (1, 2, 3, 6, 11, 20, 37, ...). - Gary W. Adamson, May 04 2009
From Reinhard Zumkeller, Nov 30 2009: (Start)
Characteristic function of numbers coprime to 3.
a(n) = 1 - A079978(n); a(A001651(n)) = 1; a(A008585(n)) = 0;
A000212(n) = Sum_{k=0..n} a(k)*(n-k). (End)
Sum_{k>0} a(k)/k/2^k = log(7)/3. - Jaume Oliver Lafont, Jun 01 2010
The sequence is the principal Dirichlet character of the reduced residue system mod 3 (the other is A102283). Associated Dirichlet L-functions are L(2,chi) = Sum_{n>=1} a(n)/n^2 = 4*Pi^2/27 = A214549, and L(3,chi) = Sum_{n>=1} a(n)/n^3 = 1.157536... = -(psi''(1/3) + psi''(2/3))/54 where psi'' is the tetragamma function. [Jolley eq 309 and arXiv:1008.2547, L(m = 3, r = 1, s)]. - R. J. Mathar, Jul 15 2010
a(n+1), n >= 0, is the sequence of the row sums of the Riordan triangle A158454. - Wolfdieter Lang, Dec 18 2010
Removing the first two elements and keeping the offset at 0, this is a periodic sequence (1, 0, 1, 1, 0, 1, ...). Its INVERTi transform is (1, -1, 2, -2, 2, -2, ...) with period (2,-2). - Gary W. Adamson, Jan 21 2011
Column k = 1 of triangle in A198295. - Philippe Deléham, Jan 31 2012
The set of natural numbers, A000027: (1, 2, 3, ...); is the INVERT transform of the signed periodic sequence (1, 1, 0, -1, -1, 0, 1, 1, 0, ...). - Gary W. Adamson, Apr 28 2013
Any integer sequence s(n) = |s(n-1) - s(n-2)| (equivalently, max(s(n-1), s(n-2)) - min(s(n-1), s(n-2))) for n > i + 1 with s(i) = j and s(i+1) = k, where j and k are not both 0, is or eventually becomes a multiple of this sequence, namely, the sequence repeat gcd(j, k), gcd(j, k), 0 (at some offset). In particular, if j and k are coprime, then s(n) is or eventually becomes this sequence (see, e.g., A110044). - Rick L. Shepherd, Jan 21 2014
For n >= 1, a(n) is also the characteristic function for rational g-adic integers (+n/3)A001651).%20See%20the%20definition%20in%20the%20Mahler%20reference,%20p.%207%20and%20also%20p.%2010.%20-%20_Wolfdieter%20Lang">g and also (-n/3)_g for all integers g >= 2 without a factor 3 (A001651). See the definition in the Mahler reference, p. 7 and also p. 10. - _Wolfdieter Lang, Jul 11 2014
Characteristic function for A007908(n+1) being divisible by 3. a(n) = bit flipped A007908(n+1) (mod 3) = bit flipped A079978(n). - Wolfdieter Lang, Jun 12 2017
Also Jacobi or Kronecker symbol (n/9) (or (n/9^e) for all e >= 1). - Jianing Song, Jul 09 2018
The binomial trans. is 0, 1, 3, 6, 11, 21, 42, 85, 171, 342,.. (see A024495). - R. J. Mathar, Feb 25 2023

			G.f. = x + x^2 + x^4 + x^5 + x^7 + x^8 + x^10 + x^11 + x^13 + x^14 + x^16 + x^17 + ...

S. W. Golomb, Shift-Register Sequences, Holden-Day, San Francisco, 1967.
H. D. Lueke, Korrelationssignale, Springer 1992, pp. 43-48.
F. J. MacWilliams and N. J. A. Sloane, The Theory of Error-Correcting Codes, Elsevier/North Holland, 1978, p. 408.
K. Mahler, p-adic numbers and their functions, 2nd ed., Cambridge University press, 1981.
Paulo Ribenboim, The Little Book of Big Primes. Springer-Verlag, NY, 1991, p. 46. [Rick L. Shepherd, Feb 07 2009]

Andrei Asinowski, Cyril Banderier and Valerie Roitner, Generating functions for lattice paths with several forbidden patterns, (2019).
Marcia Edson, Scott Lewis and Omer Yayenie, The k-periodic Fibonacci sequence and an extended Binet's formula, INTEGERS 11 (2011) #A32.
Alex Fink, Richard K. Guy, and Mark Krusemeyer, Partitions with parts occurring at most thrice, Contributions to Discrete Mathematics, Vol 3, No 2 (2008), pp. 76-114. See Section 13.
L. B. W. Jolley, Summation of Series, Dover, (1961).
Index entries for two-way infinite sequences
Index entries for linear recurrences with constant coefficients, signature (0,0,1).
Index entries for characteristic functions.
Index entries for sequences related to Chebyshev polynomials..

Partial sums of A057078 give A011655(n+1).
Cf. A035191 (Mobius transform), A001590, A002487, A049347.
Cf. A000035, A011558, A097325, A109720, A145568, A166486, A168181, A168182, A168184, A168185. - Reinhard Zumkeller, Nov 30 2009
Cf. A000027, A000045, A004523 (partial sums), A057078 (first differences).
Cf. A007908, A079978 (bit flipped).
Cf. A011656 - A011751 for other binary m-sequences.
Cf. A002264.

a011655 = fromEnum . ((/= 0) . (`mod` 3))
a011655_list = cycle [0,1,1]  -- Reinhard Zumkeller, Apr 07 2012

[(n^2 mod 3) : n in [0..100]]; // Wesley Ivan Hurt, Apr 16 2015

A011655:=n->(n^2 mod 3): seq(A011655(n), n=0..100); # Wesley Ivan Hurt, Apr 16 2015

A011655[n_] := If[Mod[n, 3] == 0, 0, 1];  Array[A011655, 105, 0] (* Robert G. Wilson v *)
Mod[Fibonacci[Range[0, 99]], 2] (* Alonso del Arte, Jul 20 2017 *)

PARI
```
{a(n) = sign(n%3)};
```

a(n)=!!(n%3) \\ Jaume Oliver Lafont, Mar 24 2009

a(n)=n%3>0 \\ M. F. Hasler, Feb 17 2018

def A011655(n): return int(bool(n%3)) # Chai Wah Wu, May 25 2022

G.f.: (x + x^2) / (1 - x^3) = Sum_{k>0} (x^k - x^(3*k)).
G.f.: x / (1 - x / (1 + x / (1 + x / (1 - 2*x / (1 + x))))). - Michael Somos, Apr 02 2012
a(n) = a(n+3) = a(-n), a(3*n) = 0, a(3*n + 1) = a(3*n + 2) = 1 for all n in Z.
a(n) = (1/2)*( (-1)^(floor((2n + 4)/3)) + 1 ). - Mario Catalani (mario.catalani(AT)unito.it), Oct 22 2003
a(n) = Fibonacci(n) mod 2. - Paul Barry, Nov 12 2003
a(n) = (2/3)*(1 - cos(2*Pi*n/3)). - Ralf Stephan, Jan 06 2004
a(n) = 1 - a(n-1)*a(n-2), a(n) = n for n < 2. - Reinhard Zumkeller, Feb 28 2004
a(n) = 2*(1 - T(n, -1/2))/3 with Chebyshev's polynomials T(n, x) of the first kind; see A053120. - Wolfdieter Lang, Oct 18 2004
a(n) = n*Sum_{k=0..floor(n/2)} (-1)^k*binomial(n-k, k)*A001045(n-2k)/(n-k). - Paul Barry, Oct 31 2004
a(n) = A002487(n) mod 2. - Paul Barry, Jan 14 2005
From Bruce Corrigan (scentman(AT)myfamily.com), Aug 08 2005: (Start)
a(n) = n^2 mod 3.
a(n) = (1/3)*(2 - (r^n + r^(2*n))) where r = (-1 + sqrt(-3))/2. (End)
From Michael Somos, Sep 23 2005: (Start)
Euler transform of length 3 sequence [ 1, -1, 1].
Moebius transform is length 3 sequence [ 1, 0, -1].
Multiplicative with a(3^e) = 0^e, a(p^e) = 1 otherwise. (End)
From Hieronymus Fischer, Jun 27 2007: (Start)
a(n) = (4/3)*(|sin(Pi*(n-2)/3)| + |sin(Pi*(n-1)/3)|)*|sin(Pi*n/3)|.
a(n) = ((n+1) mod 3 + 1) mod 2 = (1 - (-1)^(n - 3*floor((n+1)/3)))/2. (End)
a(n) = 2 - a(n-1) - a(n-2) for n > 1. - Reinhard Zumkeller, Apr 13 2008
a(2*n+1) = a(n+1) XOR a(n), a(2*n) = a(n), a(1) = 1, a(0) = 0. - Reinhard Zumkeller, Dec 27 2008
Sum_{n>=1} a(n)/n^s = (1-1/3^s)*Riemann_zeta(s), s > 1. - R. J. Mathar, Jul 31 2010
a(n) = floor((4*n-5)/3) mod 2. - Gary Detlefs, May 15 2011
a(n) = (a(n-1) - a(n-2))^2 with a(0) = 0, a(1) = 1. - Francesco Daddi, Aug 02 2011
Convolution of A040000 with A049347. - R. J. Mathar, Jul 21 2012
G.f.: Sum_{k>0} x^A001651(k). - L. Edson Jeffery, Dec 05 2012
G.f.: x/(G(0) - x^2) where G(k) = 1 - x/(x + 1/(1 - x/G(k+1))); (recursively defined continued fraction). - Sergei N. Gladkovskii, Feb 15 2013
For the general case: The characteristic function of numbers that are not multiples of m is a(n) = floor((n-1)/m) - floor(n/m) + 1, with m,n > 0. - Boris Putievskiy, May 08 2013
a(n) = sign(n mod 3). - Wesley Ivan Hurt, Jun 22 2013
a(n) = A000035(A000032(n)) = A000035(A000045(n)). - Omar E. Pol, Oct 28 2013
a(n) = (-n mod 3)^((n-1) mod 3). - Wesley Ivan Hurt, Apr 16 2015
a(n) = (2/3) * (1 - sin((Pi/6) * (4*n + 3))) for n >= 0. - Werner Schulte, Jul 20 2017
a(n) = a(n-1) XOR a(n-2) with a(0) = 0, a(1) = 1. - Chunqing Liu, Dec 18 2022
a(n) = floor((n+2)/3) - floor(n/3) = A002264(n+2) - A002264(n). - Aaron J Grech, Jul 30 2024
E.g.f.: 2*(exp(x) - exp(-x/2)*cos(sqrt(3)*x/2))/3. - Stefano Spezia, Mar 30 2025
Dirichlet g.f.: zeta(s)*(1-1/3^s). - R. J. Mathar, Aug 10 2025

Better name from Omar E. Pol, Oct 28 2013

A008592 Multiples of 10: a(n) = 10*n.

Original entry on oeis.org

0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530

Offset: 0

N. J. A. Sloane

Number of 3 X n binary matrices avoiding simultaneously the right angled numbered polyomino patterns (ranpp) (00;1), (01,1) and (11;0). An occurrence of a ranpp (xy;z) in a matrix A=(a(i,j)) is a triple (a(i1,j1), a(i1,j2), a(i2,j1)) where i11 and n>1. - Sergey Kitaev, Nov 12 2004
If Y is a 5-subset of an n-set X then, for n>=5, a(n-4) is the number of 3-subsets of X having at least two elements in common with Y. - Milan Janjic, Dec 08 2007
Complement of A067251; A168184(a(n)) = 0. - Reinhard Zumkeller, Nov 30 2009
Where record values occur for the number of partitions of n into powers of 10: A179052(n) = A179051(a(n)). - Reinhard Zumkeller, Jun 27 2010
Numbers ending in 0. - Wesley Ivan Hurt, Apr 10 2016

Ivan Panchenko, Table of n, a(n) for n = 0..200
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 322.
Tanya Khovanova, Recursive Sequences.
Sergey Kitaev, On multi-avoidance of right angled numbered polyomino patterns, Integers: Electronic Journal of Combinatorial Number Theory 4 (2004), A21, 20pp.
Luis Manuel Rivera, Integer sequences and k-commuting permutations, arXiv preprint arXiv:1406.3081 [math.CO], 2014.
Index entries for linear recurrences with constant coefficients, signature (2,-1).

Cf. A005843, A008587, A008590, A008591, A067251, A168184, A179051, A179052.

a008592 = (10 *)  -- Reinhard Zumkeller, Jun 13 2015

[10*n : n in [0..100]]; // Wesley Ivan Hurt, Apr 10 2016

A008592:=n->10*n: seq(A008592(n), n=0..100); # Wesley Ivan Hurt, Apr 10 2016

Range[0, 1000, 10] (* Vladimir Joseph Stephan Orlovsky, May 28 2011 *)

vector(50, n, n--; 10*n) \\ Michel Marcus, Feb 05 2016

x='x+O('x^999); concat(0, Vec(10*x/(x-1)^2)) \\ Altug Alkan, Apr 11 2016

apply( A008592(n)=10*n, [1..55]) \\ M. F. Hasler, Apr 23 2021

From Vincenzo Librandi, Dec 24 2010: (Start)
G.f.: 10*x/(x-1)^2.
a(n) = 2*a(n-1) - a(n-2) for n > 1. (End)
a(n) = Sum_{i=2n-2..2n+2} i. - Wesley Ivan Hurt, Apr 11 2016
E.g.f.: 10*x*exp(x). - Stefano Spezia, May 31 2021

A166486 Periodic sequence [0,1,1,1] of length 4; Characteristic function of numbers that are not multiples of 4.

Original entry on oeis.org

0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0

Offset: 0

Jaume Oliver Lafont, Oct 15 2009

			G.f. = x + x^2 + x^3 + x^5 + x^6 + x^7 + x^9 + x^10 + x^11 + x^13 + x^14 + ...

Antti Karttunen, Table of n, a(n) for n = 0..65537
Michael Somos, Rational Function Multiplicative Coefficients
Index entries for characteristic functions
Index entries for linear recurrences with constant coefficients, signature (0,0,0,1).

Characteristic function of A042968, whose complement A008586 gives the positions of zeros (after its initial term).
Absolute values of A046978, A075553, A131729, A358839, and for n >= 1, also of A112299 and of A257196.
Sequence A152822 shifted by two terms.
Parity of A327860, A331733, A342002, A351083 and A345000.
Row 3 of A225145, Column 2 of A229940 (after the initial term).
First differences of A057353. Sum of A359370 and A359372.
Cf. A000035, A011655, A011558, A097325, A109720, A168181, A168182, A168184, A145568, A168185 (characteristic functions for numbers that are not multiples of k = 2, 3 and 5..12).
Cf. A016628, A164985, A165132.
Cf. A010873, A033436, A069733 (inverse Möbius transform), A121262 (one's complement), A190621 [= n*a(n)], A355689 (Dirichlet inverse).

[Ceiling(n/4)-Floor(n/4) : n in [0..50]]; // Wesley Ivan Hurt, Jun 20 2014

seq(1/2*((n^3+n) mod 4), n=0..50); # Gary Detlefs, Mar 20 2010

PadRight[{},120,{0,1,1,1}] (* Harvey P. Dale, Jul 04 2013 *)
Table[Ceiling[n/4] - Floor[n/4], {n, 0, 100}] (* Wesley Ivan Hurt, Jun 20 2014 *)
a[ n_] := Sign[ Mod[n, 4]]; (* Michael Somos, May 05 2015 *)

PARI
```
{a(n) = !!(n%4)};
```

def A166486(n): return (0,1,1,1)[n&3] # Chai Wah Wu, Jan 03 2023

G.f.: (x + x^2 + x^3) / (1 - x^4) = x * (1 + x + x^2) / ((1 - x) * (1 + x) * (1 + x^2)) = x * (1 - x^3) / ((1 - x) * (1 - x^4)).
a(n) = (3 - i^n - (-i)^n - (-1)^n) / 4, where i=sqrt(-1).
Sum_{k>0} a(k)/(k*3^k) = log(5)/4.
From Reinhard Zumkeller, Nov 30 2009: (Start)
Multiplicative with a(p^e) = (if p=2 then 0^(e-1) else 1), p prime and e>0.
a(n) = 1-A121262(n).
a(A042968(n))=1; a(A008586(n))=0.
A033436(n) = Sum{k=0..n} a(k)*(n-k). (End)
a(n) = 1/2*((n^3+n) mod 4). - Gary Detlefs, Mar 20 2010
a(n) = (Fibonacci(n)*Fibonacci(3n) mod 3)/2. - Gary Detlefs Dec 21 2010
Euler transform of length 4 sequence [ 1, 0, -1, 1]. - Michael Somos, Feb 12 2011
Dirichlet g.f. (1-1/4^s)*zeta(s). - R. J. Mathar, Feb 19 2011
a(n) = Fibonacci(n)^2 mod 3. - Gary Detlefs, May 16 2011
a(n) = -1/4*cos(Pi*n)-1/2*cos(1/2*Pi*n)+3/4. - Leonid Bedratyuk, May 13 2012
For the general case: the characteristic function of numbers that are not multiples of m is a(n)=floor((n-1)/m)-floor(n/m)+1, m,n > 0. - Boris Putievskiy, May 08 2013
a(n) = ceiling(n/4) - floor(n/4). - Wesley Ivan Hurt, Jun 20 2014
a(n) = a(-n) for all n in Z. - Michael Somos, May 05 2015
For n >= 1, a(n) = A053866(A225546(n)) = A000035(A331733(n)). - Antti Karttunen, Jul 07 2020
a(n) = signum(n mod 4). - Alois P. Heinz, May 12 2021
From Antti Karttunen, Dec 28 2022: (Start)
a(n) = [A010873(n) > 0], where [ ] is the Iverson bracket.
a(n) = abs(A046978(n)) = abs(A075553(n)) = abs(A131729(n)) = abs(A358839(n)).
For all n >= 1, a(n) = abs(A112299(n)) = abs(A257196(n))
a(n) = A152822(2+n).
a(n) = A359370(n) + A359372(n). (End)
E.g.f.: (cosh(x) - cos(x))/2 + sinh(x). - Stefano Spezia, Aug 04 2025

Secondary definition (from Reinhard Zumkeller's Nov 30 2009 comment) added to the name by Antti Karttunen, Dec 20 2022

A067251 Numbers with no trailing zeros in decimal representation.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 88, 89, 91, 92, 93, 94, 95, 96, 97, 98, 99, 101, 102, 103, 104

Offset: 1

Reinhard Zumkeller, Mar 10 2002

Or, decimated numbers: every 10th number has been omitted from the natural numbers. - Cino Hilliard, Feb 21 2005. For example, The 10th number starting with 1 is 10 and is missing from the table because it was decimated.
The word "decimated" can be interpreted in several ways and should be used with caution. - N. J. A. Sloane, Feb 21 2005
Not the same as A052382, as 101 is included.
Numbers in here but not in A043095 are 81, 91, 92, 93, 94,... for example. - R. J. Mathar, Sep 30 2008
The integers 100*a(n) are precisely the numbers whose square ends with exactly 4 identical digits while the integers 10*a(n) form just a subsequence of the numbers whose square ends with exactly 2 identical digits (A346678). - Bernard Schott, Oct 04 2021

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Index entries for 10-automatic sequences.
Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,0,1,-1).

Complement of A008592.
Cf. A076641 (reversed).
Cf. A004086, A043095, A052382, A168184.
Cf. A039685 (a subsequence), A346678, A346940, A346942.

a067251 n = a067251_list !! (n-1)
a067251_list = filter ((> 0) . flip mod 10) [0..]
-- Reinhard Zumkeller, Jul 11 2015, Dec 29 2011

S := seq(n + floor((n-1)/9), n=1..100); # Bernard Schott, Oct 04 2021

DeleteCases[Range[110],?(Divisible[#,10]&)] (* _Harvey P. Dale, May 16 2016 *)

f(n) = for(x=1,n,if(x%10,print1(x","))) \\ Cino Hilliard, Feb 21 2005

Vec(x*(x+1)*(x^4-x^3+x^2-x+1)*(x^4+x^3+x^2+x+1)/((x-1)^2*(x^2+x+1)*(x^6+x^3+1)) + O(x^100)) \\ Colin Barker, Sep 28 2015

def a(n): return n + (n-1)//9
print([a(n) for n in range(1, 95)]) # Michael S. Branicky, Oct 04 2021

a(n) = n + floor((n-1)/9).
a(n) mod 10 > 0 for all n.
A004086(A004086(a(n))) = a(n).
A168184(a(n)) = 1. - Reinhard Zumkeller, Nov 30 2009
From Colin Barker, Sep 28 2015: (Start)
a(n) = a(n-1) + a(n-9) - a(n-10) for n>10.
G.f.: x*(x+1)*(x^4-x^3+x^2-x+1)*(x^4+x^3+x^2+x+1) / ((x-1)^2*(x^2+x+1)*(x^6+x^3+1)). (End)
Sum_{n>=1} (-1)^(n+1)/a(n) = (1/20 + 1/sqrt(5) - sqrt(1+2/sqrt(5))/5) * Pi. - Amiram Eldar, May 11 2025

Edited by N. J. A. Sloane, Sep 06 2008 at the suggestion of R. J. Mathar

Typos corrected in a comment line by Reinhard Zumkeller, Apr 04 2010

A011558 Expansion of (x + x^3)/(1 + x + ... + x^4) mod 2.

Original entry on oeis.org

0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0

Offset: 0

N. J. A. Sloane

Multiplicative with a(5^e) = 0, a(p^e) = 1 otherwise. - David W. Wilson, Jun 12 2005
Characteristic function of numbers coprime to 5. - Reinhard Zumkeller, Nov 30 2009
From R. J. Mathar, Jul 15 2010: (Start)
The sequence is the principal Dirichlet character mod 5. (The other real character mod 5 is A080891.)
Associated Dirichlet L-functions are for example L(2,chi) = Sum_{n>=1} a(n)/n^2 = 1.5791367... = (psi'(1/5) + psi'(2/5) + psi'(3/5) + psi'(4/5))/25 or L(3,chi) = Sum_{n>=1} a(n)/n^3 = 1.192440... = -(psi''(1/5) + psi''(2/5) + psi''(3/5) + psi''(4/5))/250, where psi' and psi'' are the trigamma and tetragamma functions. (End)
a(n) is for n >= 1 also the characteristic function for rational g-adic integers (+n/5)A047201).%20See%20the%20definition%20in%20the%20Mahler%20reference,%20p.%207%20and%20also%20p.%2010.%20-%20_Wolfdieter%20Lang">g and also (-n/5)_g for all integers g >= 2 without a factor of 5 (A047201). See the definition in the Mahler reference, p. 7 and also p. 10. - _Wolfdieter Lang, Jul 11 2014
Conjecture: a(n+1) is the number of ways of partitioning n into distinct parts of A084215. - R. J. Mathar, Mar 01 2023

			G.f. = x + x^2 + x^3 + x^4 + x^6 + x^7 + x^8 + x^9 + x^11 + x^12 + ...

Arthur Gill, Linear Sequential Circuits, McGraw-Hill, 1966, Eq. (17-10).
K. Mahler, p-adic numbers and their functions, 2nd ed., Cambridge University press, 1981.

Antti Karttunen, Table of n, a(n) for n = 0..65537
Michael Gilleland, Some Self-Similar Integer Sequences
R. Gold, Characteristic linear sequences and their coset functions, J. SIAM Applied. Math., 14 (1966), 980-985.
Index entries for characteristic functions
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,1).

Cf. A000035, A011655, A109720 coprimality with 2, 3, 7, respectively.
Cf. A168185, A145568, A168184, A168182, A168181, A097325, A166486.
Cf. A080891, A100047.

seq(n&^4 mod 5, n=0..50); # Gary Detlefs, Mar 20 2010

Mod[#,2]&/@CoefficientList[Series[(x+x^3)/(1+x+x^2+x^3+x^4) ,{x,0,100}], x] (* or *) Flatten[Table[{0,1,1,1,1},{30}]] (* Harvey P. Dale, May 15 2011 *)
a[ n_] := Sign@Mod[ n, 5]; (* Michael Somos, May 24 2015 *)

a(n)=!!(n%5) \\ Charles R Greathouse IV, Sep 23 2012

{a(n) = n%5>0}; /* Michael Somos, May 24 2015 */

(define (A011558 n) (if (zero? (modulo n 5)) 0 1)) ;; Antti Karttunen, Dec 21 2017

O.g.f.: x*(1+x+x^2+x^3)/(1-x^5). - Wolfdieter Lang, Feb 05 2009
From Reinhard Zumkeller, Nov 30 2009: (Start)
a(n) = 1 - A079998(n).
a(A047201(n))=1, a(A008587(n))=0.
A033437(n) = Sum_{k=0..n} a(k)*(n-k). (End)
a(n) = n^4 mod 5. - Gary Detlefs, Mar 20 2010
Sum_{n>=1} a(n)/n^s = L(s,chi) = (1-1/5^s)*Riemann_zeta(s), s > 1. - R. J. Mathar, Jul 31 2010
For the general case. The characteristic function of numbers that are not multiples of m is a(n) = floor((n-1)/m) - floor(n/m) + 1, m,n > 0. - Boris Putievskiy, May 08 2013
a(n) = sgn(n mod 5). - Wesley Ivan Hurt, Jun 30 2013
Euler transform of length 5 sequence [ 1, 0, 0, -1, 1]. - Michael Somos, May 24 2015
Moebius transform is length 5 sequence [ 1, 0, 0, 0, -1]. - Michael Somos, May 24 2015
G.f.: f(x) - f(x^5) where f(x) := x / (1 - x). - Michael Somos, May 24 2015
|a(n)| = |A080891(n)| = |A100047(n)|. - Michael Somos, May 24 2015

More terms from Antti Karttunen, Dec 21 2017

A168046 Characteristic function of zerofree numbers in decimal representation.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0

Offset: 0

Reinhard Zumkeller, Dec 01 2009

a(A052382(n)) = 1; a(A011540(n)) = 0;
a(n) = A000007(A055641(n));
not the same as A168184: a(n)=A168184(n) for n<=100.
a(A007602(n)) = a(A038186(n)) = 1. - Reinhard Zumkeller, Apr 07 2011

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Zerofree
Index entries for characteristic functions

Cf. A052382, A217096, A011540.

a168046 = fromEnum . ch0 where
   ch0 x = x > 0 && (x < 10 || d > 0 && ch0 x') where (x', d) = divMod x 10
-- Reinhard Zumkeller, May 10 2015, Apr 07 2011

Map[Boole[FreeQ[IntegerDigits[#], 0]] &, Range[0, 100]] (* Paolo Xausa, May 06 2024 *)

a(n) = A057427(A010879(n)) * (if n<10 then 1 else a(A059995(n))).
From Hieronymus Fischer, Jan 23 2013: (Start)
a(n) = A057427(A007954(n)) = sign(dp_10(n)).
where dp_10(n) digital product of n in base 10.
a(n) = 1 - A217096(n).
a(n) = 1 - sign(A055641(n)).
g(x) = x(1-x^9)/((1-x)(1-x^10))(1 + sum_{j>=1} (x^((10^j-10)/9) - x^10^j)/(1-x^10^(j+1)))).
g(x) = 1/(1-x) - g_A217096(x), where g_A217096(x) is the g.f. of A217096.
(End)

A097325 Period 6: repeat [0, 1, 1, 1, 1, 1].

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1

Offset: 0

Ralf Stephan, Aug 16 2004

a(n) is 0 if 6 divides n, 1 otherwise.

Antti Karttunen, Table of n, a(n) for n = 0..26244
Index entries for characteristic functions
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,1).

Characteristic sequence of A047253.
Binary complement of A079979.
Cf. A010875, A168185, A145568, A168184, A168182, A168181, A109720, A011558, A166486, A011655, A000035.

[Sign(n mod 6) : n in [0..50]]; // Wesley Ivan Hurt, Jun 20 2014

seq(signum(k mod 6), k=0..100); # Wesley Ivan Hurt, Jun 29 2013

Table[Boole[Not[Divisible[n, 6]]], {n, 0, 89}] (* Alonso del Arte, Oct 21 2013 *)
PadRight[{}, 120, {0, 1, 1, 1, 1, 1}] (* Michael De Vlieger, Dec 22 2017 *)

PARI
```
a(n) = sign(n%6);
```

(define (A097325 n) (if (zero? (modulo n 6)) 0 1)) ;; Antti Karttunen, Dec 22 2017

G.f.: 1/(1-x) - 1/(1-x^6) = Sum_{k>=0} x^k - x^(6*k).
Recurrence: a(n+6) = a(n), a(0) = 0, a(i) = 1, 1 <= i <= 5.
a(n) = (1/4) * (3 - (-1)^n - (-1)^((n+1)/3) - (-1)^((2n+1)/3)).
From Reinhard Zumkeller, Nov 30 2009: (Start)
a(n) = 1 - A079979(n).
a(A047253(n)) = 1, a(A008588(n)) = 0.
A033438(n) = Sum_{k=0..n} a(k)*(n-k). (End)
Dirichlet g.f.: (1 - 1/6^s)*zeta(s). - R. J. Mathar, Feb 19 2011
For the general case: the characteristic function of numbers that are not multiples of m is a(n) = floor((n-1)/m) - floor(n/m) + 1, m, n > 0. - Boris Putievskiy, May 08 2013
a(n) = sign(n mod 6). - Wesley Ivan Hurt, Jun 29 2013
a(n) = ceiling(5n/6) - floor(5n/6). - Wesley Ivan Hurt, Jun 20 2014

New name from Omar E. Pol, Oct 21 2013

A109720 Periodic sequence {0,1,1,1,1,1,1} or n^6 mod 7.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1

Offset: 0

Bruce Corrigan (scentman(AT)myfamily.com), Aug 09 2005

This sequence also represents n^12 mod 7; n^18 mod 7; (exponents are = 0 mod 6).
Characteristic sequence for numbers n>=1 to be relatively prime to 7. - Wolfdieter Lang, Oct 29 2008
a(n+4), n>=0, (periodic 1,1,1,0,1,1,1) is also the characteristic sequence for mod m reduced positive odd numbers (i.e., gcd(2*n+1,m)=1, n>=0) for each modulus m from 7*A003591 = [7,14,28,49,56,98,112,196,...]. [Wolfdieter Lang, Feb 04 2012]

Index entries for characteristic functions - _Reinhard Zumkeller_, Nov 30 2009
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,1)

Cf. A010876 = n mod 7; A053879 = n^2 mod 7; A070472 = m^3 mod 7; A070512 = n^4 mod 7; A070593 = n^5 mod 7.

Cf. A168185, A145568, A168184, A168182, A168181, A097325, A011558, A166486, A011655, A000035.

PadRight[{},120,{0,1,1,1,1,1,1}] (* Harvey P. Dale, Jul 09 2018 *)

a(n)=n^6%7 \\ Charles R Greathouse IV, Sep 24 2015

[power_mod(n,6,7)for n in range(0, 105)] # Zerinvary Lajos, Nov 06 2009

a(n) = 0 if n=0 mod 7; a(n)= 1 else.
G.f. = (x+x^2+x^3+x^4+x^5+x^6)/(1-x^7)= -x*(1+x)*(1+x+x^2)*(x^2-x+1) / ( (x-1)*(1+x+x^2+x^3+x^4+x^5+x^6) ).
a(n)=1-A082784(n); a(A047304(n))=1; a(A008589(n))=0; A033439(n) = SUM(a(k)*(n-k): 0<=k<=n). - Reinhard Zumkeller, Nov 30 2009
Multiplicative with a(p) = (if p=7 then 0 else 1), p prime. - Reinhard Zumkeller, Nov 30 2009
Dirichlet g.f. (1-7^(-s))*zeta(s). - R. J. Mathar, Mar 06 2011
For the general case: the characteristic function of numbers that are not multiples of m is a(n)=floor((n-1)/m)-floor(n/m)+1, m,n > 0. - Boris Putievskiy, May 08 2013

A168181 Characteristic function of numbers that are not multiples of 8.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0

Offset: 0

Reinhard Zumkeller, Nov 30 2009

Multiplicative with a(p^e) = (if p=2 then A019590(e) else 1), p prime and e>0.

Period 8 Repeat: [0, 1, 1, 1, 1, 1, 1, 1]. - Wesley Ivan Hurt, Jun 21 2014

			G.f. = x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7 + x^9 + x^10 + x^11 + ...

Antti Karttunen, Table of n, a(n) for n = 0..16384
Index entries for characteristic functions
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,1).

Cf. A168185, A145568, A168184, A168182, A109720, A097325, A011558, A166486, A011655, A000035, A010877, A244413, A253513.

[Sign(n mod 8) : n in [0..100]]; // Wesley Ivan Hurt, Jun 21 2014

with(numtheory); A168181:=n->signum(n mod 8); seq(A168181(n), n=0..100); # Wesley Ivan Hurt, Jun 21 2014

Table[Sign[Mod[n,8]], {n, 0, 100}] (* Wesley Ivan Hurt, Jun 21 2014 *)

a(n)=n%8 > 0 \\ Felix Fröhlich, Aug 11 2014

def A168181(n): return int(bool(n&7)) # Chai Wah Wu, Jul 09 2022

a(n+8) = a(n);
a(n) = A000007(A010877(n));
a(A047592(n)) = 1; a(A008590(n)) = 0;
A033440(n) = Sum_{k=0..n} a(k)*(n-k).
Dirichlet g.f. (1-1/8^s)*zeta(s). - R. J. Mathar, Feb 19 2011
For the general case: the characteristic function of numbers that are not multiples of m is a(n) = floor((n-1)/m) - floor(n/m) + 1, m,n > 0. - Boris Putievskiy, May 08 2013
a(n) = sign(n mod 8). - Wesley Ivan Hurt, Jun 21 2014
a(n) = sign( 1 - floor(cos(Pi*n/4)) ). - Wesley Ivan Hurt, Jun 21 2014
Euler transform of length 8 sequence [ 1, 0, 0, 0, 0, 0, -1, 1]. - Michael Somos, Jun 24 2014
Moebius transform is length 8 sequence [ 1, 0, 0, 0, 0, 0, 0, -1]. - Michael Somos, Jun 24 2014
G.f.: x * (1 - x^7) / ((1 - x) * (1 - x^8)). - Michael Somos, Jun 24 2014
a(n) = 1-A253513(n). - Antti Karttunen, Oct 08 2017

A168182 Characteristic function of numbers that are not multiples of 9.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1

Offset: 0

Reinhard Zumkeller, Nov 30 2009

			G.f. = x + x^2 + x^3 + x^4 + x^5 + x^6 + x^7 + x^8 + x^10 + x^11 + x^12 + x^13 + ...

Antti Karttunen, Table of n, a(n) for n = 0..999
Michael Somos, Rational Function Multiplicative Coefficients
Index entries for characteristic functions
Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,0,1).

Cf. A168185, A145568, A168184, A168181, A109720, A097325, A011558, A166486, A011655, A000035, A267142, A033441.

A168182[n_]:=Boole[!Divisible[n,9]]; Array[A168182, 10, 0]
Table[If[Mod[n,9]==0,0,1],{n,0,120}] (* Harvey P. Dale, Mar 05 2025 *)

{a(n) = sign(n%9)}; /* Michael Somos, Mar 22 2011 */

Euler transform of length 9 sequence [1, 0, 0, 0, 0, 0, 0, -1, 1]. - Michael Somos, Mar 22 2011
Moebius transform is length 9 sequence [1, 0, 0, 0, 0, 0, 0, 0, -1]. - Michael Somos, Mar 22 2011
Expansion of x * (1 - x^8) / ((1 - x) * (1 - x^9)) in powers of x. - Michael Somos, Mar 22 2011
Multiplicative with a(p^e) = (if p=3 then 0^(e-1) else 1), p prime and e>0.
a(n) = a(n+9) = a(-n) for all n in Z.
a(n) = A000007(A010878(n)).
a(A168183(n)) = 1. a(A008591(n)) = 0.
A033441(n) = Sum_{k=0..n} a(k)*(n-k).
G.f.: -x*(1+x)*(1+x^2)*(1+x^4) / ( (x-1)*(1+x+x^2)*(x^6+x^3+1) ). - R. J. Mathar, Jan 07 2011
Dirichlet g.f. (1-3^(-2s))*zeta(s). - R. J. Mathar, Mar 06 2011
For the general case: the characteristic function of numbers that are not multiples of m is a(n)=floor((n-1)/m)-floor(n/m)+1, m,n > 0. - Boris Putievskiy, May 08 2013
a(n) = 1 - A267142(n). - Antti Karttunen, Oct 07 2017

cp's OEIS Frontend

A011655 Period 3: repeat [0, 1, 1].

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

PARI

PARI

Python

Formula

Extensions

A008592 Multiples of 10: a(n) = 10*n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Maple

Mathematica

PARI

PARI

PARI

Formula

A166486 Periodic sequence [0,1,1,1] of length 4; Characteristic function of numbers that are not multiples of 4.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Python

Formula

Extensions

A067251 Numbers with no trailing zeros in decimal representation.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

PARI

Python

Formula

Extensions

A011558 Expansion of (x + x^3)/(1 + x + ... + x^4) mod 2.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica