A095899
Numbers n such that b(n)/n - 1/2 < 1/k for all k > n, where b(n) is A004001.
Original entry on oeis.org
1, 1, 1, 1, 6, 6, 11, 13, 25, 44, 46, 52, 98, 180, 186, 372, 396, 747, 1489, 1563, 3003, 6059, 11787, 22251, 47152, 89524, 188871, 361441, 758765, 207115, 411023, 826893, 1642957, 3308167, 6574193
Offset: 1
-
a[1] = a[2] = 1; a[n_] := a[n] = a[a[n - 1]] + a[n - a[n - 1]]; Do[ a[n], {n, 10000000}]; f[n_] := Block[{k = C}, While[ a[k]/k - 1/2 < 1/n, k-- ]; k] (C is a number generally twice as large as the previous answer) (* Robert G. Wilson v, Jun 11 2004 *)
A120472
A004001[n + 1]*Fibonacci[n + 1] - 2*A004001[n]*Fibonacci[n] + A004001[n - 1]*Fibonacci[n - 1].
Original entry on oeis.org
-1, 3, -1, 7, 8, 3, 12, 54, 74, 133, 92, 471, 296, 712, 1152, 3461, 4990, 8684, 15038, 14983, 48719, 72064, 76999, 228269, 219297, 429855, 1013331, 1003982, 1942288, 3142688
Offset: 0
-
Conway[0] = 0; Conway[1] = Conway[2] = 1; Conway[n_Integer?Positive] := Conway[n] = Conway[Conway[n - 1]] + Conway[n - Conway[n - 1]] a[n_] := Conway[n + 1]*Fibonacci[ n + 1] - 2*Conway[n]*Fibonacci[n] + Conway[n - 1]*Fibonacci[n - 1] Table[a[n], {n, 1, 30}]
Original entry on oeis.org
-1, 1, -2, 3, 0, -8, 0, 21, 0, 0, -89, 144, -233, 0, 0, 987, 0, 0, 0, -6765, 10946, 0, -28657, 46368, -75025, 0, 196418, -317811, 0, 0
Offset: 0
-
Conway[0] = 0; Conway[1] = Conway[2] = 1; Conway[n_Integer?Positive] := Conway[n] = Conway[Conway[n - 1]] + Conway[n - Conway[n - 1]] a[n_] := Fibonacci[n]*(Conway[n + 1] - 2*Conway[n] + Conway[n - 1]) Table[a[n], {n, 1, 30}]
A136266
Expansion of B(x, n) = x*B(x, A004001(n - 1)) + B(x, n - A004001(n - 1)), irregular table read by rows.
Original entry on oeis.org
1, 0, 1, 0, 1, 1, 0, 1, 2, 0, 1, 2, 1, 0, 1, 3, 1, 0, 1, 3, 2, 0, 1, 3, 2, 1, 0, 1, 3, 3, 1, 0, 1, 4, 3, 1, 0, 1, 4, 4, 1, 0, 1, 4, 4, 2, 0, 1, 4, 4, 2, 1, 0, 1, 4, 5, 2, 1, 0, 1, 4, 5, 3, 1, 0, 1, 4, 5, 4, 1, 0, 1, 4, 6, 4, 1, 0, 1, 5, 6, 4, 1, 0, 1, 5, 7, 4, 1, 0, 1, 5, 7, 5, 1, 0, 1, 5, 7, 5, 2
Offset: 1
{1},
{0, 1},
{0, 1, 1},
{0, 1, 2},
{0, 1, 2, 1},
{0, 1, 3, 1},
{0, 1, 3, 2},
{0, 1, 3, 2, 1},
{0, 1, 3, 3, 1},
{0, 1, 4, 3, 1},
{0, 1, 4, 4, 1},
{0, 1, 4, 4, 2},
{0, 1, 4, 4, 2, 1},
{0, 1, 4, 5, 2, 1},
{0, 1, 4, 5, 3, 1},
{0, 1, 4, 5, 4, 1},
{0, 1, 4, 6, 4, 1},
{0, 1, 5, 6, 4, 1},
{0, 1, 5, 7, 4, 1},
{0, 1, 5, 7, 5, 1},
{0, 1, 5, 7, 5, 2}
-
Conway[0] = 1; Conway[1] = 1; Conway[2] = 1;
Conway[n_] := Conway[n] = Conway[Conway[n - 1]] + Conway[n - Conway[n - 1]];
B[x, 0] = 1; B[x, 1] = x;
B[x_, n_] := B[x, n] = x*B[x, Conway[n - 1]] + B[x, n - Conway[n - 1]];
Table[ExpandAll[B[x, n]], {n, 0, 10}];
a = Table[CoefficientList[B[x, n], x], {n, 0, 10}]
Flatten[a]
A147982
Expansion of Product_{k > 0} (1 + f(k)*x^k), where f(k) = A147952(A004001(k)).
Original entry on oeis.org
1, 1, 1, 2, 2, 4, 6, 8, 11, 16, 20, 28, 38, 50, 69, 92, 120, 154, 203, 261, 338, 437, 559, 710, 907, 1146, 1444, 1829, 2291, 2863, 3593, 4457, 5539, 6882, 8503, 10501, 12931, 15861, 19466, 23854, 29125, 35520, 43279, 52557, 63735, 77358, 93472, 112885
Offset: 0
-
(* A004001 *) g[0] = 0; g[1] = 1; g[2] = 1; g[n_] := g[n] = g[g[n - 1]] + g[n - g[n - 1]];
(*A147952*) f[0] = 0; f[1] = 1; f[2] = 1; f[n_] := f[n] = f[f[n - 2]] + If[Mod[n, 3] == 0, f[f[n/3]], If[Mod[n, 3] ==1, f[f[(n - 1)/3]], f[n - f[(n - 2)/3]]]];
P[x_, n_] := P[x, n] = Product[1 + f[g[m]]*x^m, {m, 0, n}];
Take[CoefficientList[P[x, 45], x], 45] (* Program simplified and corrected by Petros Hadjicostas, Apr 11 2020 using code from A147869 *)
A169636
Number of permutations of A004001 sequence vectors:a(n)=Length[Permutations[Table[A004001[i], {i, 0, m}]]].
Original entry on oeis.org
1, 2, 3, 12, 30, 180, 1260, 5040, 15120, 151200, 1663200
Offset: 0
-
(*A004001*)
f[0] = 0; f[1] = 1; f[2] = 1;
f[n_] := f[n] = f[f[n - 1]] + f[n - f[n - 1]];
a[m_] := Length[Permutations[Table[f[i], {i, 0, m}]]];
b = Table[a[m], {m, 0, 10}]
Original entry on oeis.org
1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 18, 18, 19, 19, 19, 20, 20, 21, 21, 21, 22, 22, 23, 23, 23, 24, 24, 24, 24, 24, 25, 25, 26, 26, 26, 27, 27, 27, 27, 27, 28, 28, 28, 29
Offset: 1
-
f[0] = 0; f[1] = 1; f[2] = 1;
f[n_] := f[n] = f[f[n - 1]] + f[n - f[n - 1]];
b = Table[f[n] - Floor[f[n]/2], {n, 0, 100}]
A202823
Numbers n such that A004001(n) = A005185(n), where A004001 = Hofstadter-Conway $10000 sequence and A005185 = Hofstadter Q-sequence.
Original entry on oeis.org
1, 2, 3, 5, 6, 10, 13, 14, 19, 20, 21, 28, 29, 30, 33, 54, 59, 60, 61, 62, 67, 73, 109, 114, 128, 143, 263, 298, 453, 473, 478, 512, 519, 555, 571, 789, 872, 1045, 1586, 1597, 1890, 1901, 2085, 2096, 2130, 2283, 2374, 2376, 3292, 3412, 3552, 3895, 4038, 4250
Offset: 1
Number 13 is in sequence because A004001(13) = A005185(13) = 8.
Original entry on oeis.org
1, 1, 2, 2, 3, 4, 4, 4, 5, 6, 6, 7, 8, 8, 8, 8, 9, 10, 11, 12, 12, 13, 14, 14
Offset: 1
A000027
The positive integers. Also called the natural numbers, the whole numbers or the counting numbers, but these terms are ambiguous.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77
Offset: 1
- T. M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976, page 1.
- T. M. Apostol, Modular Functions and Dirichlet Series in Number Theory, Springer-Verlag, 1990, page 25.
- John H. Conway and Richard K. Guy, The Book of Numbers, New York: Springer-Verlag, 1996. See p. 22.
- W. Fulton and J. Harris, Representation theory: a first course, (1991), page 149. [From Leonid Bedratyuk, Jan 04 2010]
- I. S. Gradstein and I. M. Ryshik, Tables of series, products, and integrals, Volume 1, Verlag Harri Deutsch, 1981.
- R. E. Schwartz, You Can Count on Monsters: The First 100 numbers and Their Characters, A. K. Peters and MAA, 2010.
- N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
- N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
- N. J. A. Sloane, Table of n, a(n) for n = 1..500000 [a large file]
- Archimedes Laboratory, What's special about this number?
- Affaire de Logique, Pick et Pick et Colegram (in French), No. 1051, 18-04-2018.
- Paul Barry, A Catalan Transform and Related Transformations on Integer Sequences, Journal of Integer Sequences, Vol. 8 (2005), Article 05.4.5.
- James Barton, The Numbers
- A. Berger and T. P. Hill, What is Benford's Law?, Notices, Amer. Math. Soc., 64:2 (2017), 132-134.
- A. Breiland, L. Oesper, and L. Taalman, p-Coloring classes of torus knots, Online Missouri J. Math. Sci., 21 (2009), 120-126.
- N. Brothers, S. Evans, L. Taalman, L. Van Wyk, D. Witczak, and C. Yarnall, Spiral knots, Missouri J. of Math. Sci., 22 (2010).
- C. K. Caldwell, Prime Curios
- Case and Abiessu, interesting number
- S. Crandall, notes on interesting digital ephemera
- O. Curtis, Interesting Numbers
- M. DeLong, M. Russell, and J. Schrock, Colorability and determinants of T(m,n,r,s) twisted torus knots for n equiv. +/-1(mod m), Involve, Vol. 8 (2015), No. 3, 361-384.
- Walter Felscher, Historia Matematica Mailing List Archive.
- P. Flajolet and R. Sedgewick, Analytic Combinatorics, 2009; see page 371.
- Robert R. Forslund, A logical alternative to the existing positional number system, Southwest Journal of Pure and Applied Mathematics, Vol. 1 1995 pp. 27-29.
- E. Friedman, What's Special About This Number?
- R. K. Guy, Letter to N. J. A. Sloane
- Milan Janjic, Enumerative Formulas for Some Functions on Finite Sets
- Kival Ngaokrajang, Illustration about relation to many other sequences, when the sequence is considered as a triangular table read by its antidiagonals. Additional illustrations when the sequence is considered as a centered triangular table read by rows.
- Mike Keith, All Numbers Are Interesting: A Constructive Approach
- Leonardo of Pisa [Leonardo Pisano], Illustration of initial terms, from Liber Abaci [The Book of Calculation], 1202 (photo by David Singmaster).
- Feihu Liu, Guoce Xin, and Chen Zhang, Ehrhart Polynomials of Order Polytopes: Interpreting Combinatorial Sequences on the OEIS, arXiv:2412.18744 [math.CO], 2024. See pp. 15, 24.
- Robert Munafo, Notable Properties of Specific Numbers.
- G. Pfeiffer, Counting Transitive Relations, Journal of Integer Sequences, Vol. 7 (2004), Article 04.3.2.
- R. Phillips, Numbers from one to thirty-one
- J. Striker, Dynamical Algebraic Combinatorics: Promotion, Rowmotion, and Resonance, Notices of the AMS, June/July 2017, pp. 543-549.
- G. Villemin's Almanac of Numbers, NOMBRES en BREF (in French)
- Eric Weisstein's World of Mathematics, Natural Number, Positive Integer, Counting Number Composition, Davenport-Schinzel Sequence, Idempotent Number, N, Smarandache Ceil Function, Whole Number, Engel Expansion, and Trinomial Coefficient
- Wikipedia, List of numbers, Interesting number paradox, and Floyd's triangle
- Robert G. Wilson v, English names for the numbers from 0 to 11159 without spaces or hyphens
- Robert G. Wilson v, American English names for the numbers from 0 to 100999 without spaces or hyphens
- Index entries for "core" sequences
- Index entries for sequences of the a(a(n)) = 2n family
- Index entries for sequences that are permutations of the natural numbers
- Index entries for related partition-counting sequences
- Index entries for linear recurrences with constant coefficients, signature (2,-1).
- Index to divisibility sequences
- Index entries for sequences related to Benford's law
Cf.
A026081 = integers in reverse alphabetical order in U.S. English,
A107322 = English name for number and its reverse have the same number of letters,
A119796 = zero through ten in alphabetical order of English reverse spelling,
A005589, etc. Cf.
A185787 (includes a list of sequences based on the natural number array
A000027).
Cf.
A038722 (mirrored when seen as triangle),
A056011 (boustrophedon).
-
a000027 = id
a000027_list = [1..] -- Reinhard Zumkeller, May 07 2012
-
print([n for n in 1:280]) # Paul Muljadi, Apr 09 2024
-
[ n : n in [1..100]];
-
A000027 := n->n; seq(A000027(n), n=1..100);
-
Range@ 77 (* Robert G. Wilson v, Mar 31 2015 *)
-
makelist(n, n, 1, 30); /* Martin Ettl, Nov 07 2012 */
-
{a(n) = n};
-
print join(", ", 1..280) # Paul Muljadi, May 29 2024
-
def A000027(n): return n # Chai Wah Wu, May 09 2022
-
1:100
-
seq 1 100
Comments