cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 31-40 of 116 results. Next

A151895 Number of ON cells after n generations of the cellular automaton on the square grid that is described in the Comments.

Original entry on oeis.org

0, 1, 5, 9, 13, 25, 29, 41, 53, 65, 85, 97, 117, 145, 149, 161, 173, 185, 213, 233, 261, 297, 333, 385, 429, 481, 533, 545, 573, 601, 629, 673, 717, 761, 837, 905, 989, 1033, 1085, 1145, 1197, 1257, 1309, 1337, 1397, 1457, 1525, 1625, 1669
Offset: 0

Views

Author

David Applegate and N. J. A. Sloane, Jul 30 2009

Keywords

Comments

The cells are the squares of the standard square grid.
Cells are either OFF or ON, once they are ON they stay ON, and we begin in generation 1 with 1 ON cell.
Each cell has 4 neighbors, those that it shares an edge with. Cells that are ON at generation n all try simultaneously to turn ON all their neighbors that are OFF. They can only do this at this point in time; afterwards they go to sleep (but stay ON).
A square Q is turned ON at generation n+1 if:
a) Q shares an edge with one and only one square P (say) that was turned ON at generation n (in which case the two squares which intersect Q only in a vertex not on that edge are called Q's "outer squares"), and
b) Q's outer squares were not considered (that is, satisfied a)) in any previous generation, and
c) Q's outer squares are not prospective squares of the (n+1)st generation satisfying a).
Originally constructed in an attempt to explain the Holladay-Ulam CA shown in Fig. 2 of the 1962 Ulam article. However, as explained on page 222 of that article, the actual rule for that CA (see A151906, A151907) is different from ours.
A170896 and A267190 are also closely related cellular automata.
A151895 and A267190 first differ at n=17, when A267190 turns (12,2) ON even though its outer square (11,1) was considered (not turned ON) in a previous generation. - David Applegate, Jan 30 2016

References

  • D. Applegate, Omar E. Pol and N. J. A. Sloane, The Toothpick Sequence and Other Sequences from Cellular Automata, Congressus Numerantium, Vol. 206 (2010), 157-191.

Crossrefs

See A170896, A170897 for the original Schrandt-Ulam version.
Cf. A151896 (the first differences), A139250, A151905, A151906, A151907, A267190, A267191.

Formula

We do not know of a recurrence or generating function.

Extensions

Entry (including definition) revised by David Applegate and N. J. A. Sloane, Jan 21 2016

A001857 a(1)=2, a(2)=3; for n >= 3, a(n) is smallest number that is uniquely of the form a(j) + a(k) with 1 <= j < k < n.

Original entry on oeis.org

2, 3, 5, 7, 8, 9, 13, 14, 18, 19, 24, 25, 29, 30, 35, 36, 40, 41, 46, 51, 56, 63, 68, 72, 73, 78, 79, 83, 84, 89, 94, 115, 117, 126, 153, 160, 165, 169, 170, 175, 176, 181, 186, 191, 212, 214, 230, 235, 240, 245, 266, 273, 278, 283, 288, 325, 331, 332, 337, 342
Offset: 1

Views

Author

Keywords

Comments

An Ulam-type sequence - see A002858 for many further references, comments, etc.
A plot of the first 10^6 terms shows a nearly straight line having a slope of about 11.1. In contrast to A002858, this sequence has many consecutive numbers; of the first 10^6 terms, consecutive numbers appear 141674 times! - T. D. Noe, Jan 21 2008

References

  • S. R. Finch, Patterns in 1-additive sequences, Experimental Mathematics 1 (1992), 57-63.
  • S. R. Finch, Mathematical Constants, Cambridge, 2003, pp. 145-151.
  • R. K. Guy, Unsolved Problems in Number Theory, Section C4.
  • 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).
  • S. M. Ulam, Problems in Modern Mathematics, Wiley, NY, 1960, p. ix.

Crossrefs

Programs

  • Haskell
    a001857 n = a001857_list !! (n-1)
    a001857_list = 2 : 3 : ulam 2 3 a001857_list
    -- Function ulam as defined in A002858.
    -- Reinhard Zumkeller, Nov 03 2011
  • Mathematica
    s = {2, 3}; Do[ AppendTo[s, n = Last[s]; While[n++; Length[ DeleteCases[ Intersection[s, n-s], n/2, 1, 1]] != 2]; n], {100}]; s (* Jean-François Alcover, Sep 08 2011 *)

Extensions

More terms from Jud McCranie

A060469 Smallest positive a(n) such that number of solutions to a(n) = a(j)+a(k) j

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 11, 13, 16, 18, 23, 25, 28, 30, 35, 37, 40, 42, 47, 49, 52, 54, 59, 61, 64, 66, 71, 73, 76, 78, 83, 85, 88, 90, 95, 97, 100, 102, 107, 109, 112, 114, 119, 121, 124, 126, 131, 133, 136, 138, 143, 145, 148, 150, 155, 157, 160, 162, 167, 169, 172, 174
Offset: 1

Views

Author

Henry Bottomley, Mar 15 2001

Keywords

Comments

Numbers {1,4,6,11} mod 12 plus {2,3,8}.

Examples

			11 is in the sequence since it is 3+8 but no other sum of two distinct terms.
		

Crossrefs

Virtually identical to A003662.

Programs

  • Mathematica
    LinearRecurrence[{1, 0, 0, 1, -1}, {1, 2, 3, 4, 6, 8, 11, 13, 16, 18, 23}, 100] (* Paolo Xausa, Mar 04 2024 *)
  • PARI
    Vec(x*(2*x^10+x^8+x^7+2*x^6+x^5+x^4+x^3+x^2+x+1)/((x-1)^2*(x+1)*(x^2+1)) + O(x^100)) \\ Colin Barker, Feb 27 2015

Formula

a(n) = a(n-1)+a(n-4)-a(n-5) for n>9. - Colin Barker, Feb 27 2015
G.f.: x*(2*x^10+x^8+x^7+2*x^6+x^5+x^4+x^3+x^2+x+1) / ((x-1)^2*(x+1)*(x^2+1)). - Colin Barker, Feb 27 2015
a(n) = (6*n - 22 - (-1)^n + A056594(n) - A056594(n+1))/2 for n > 6. - Stefano Spezia, Mar 11 2025

A068820 Ulam numbers that are primes.

Original entry on oeis.org

2, 3, 11, 13, 47, 53, 97, 131, 197, 241, 409, 431, 607, 673, 739, 751, 983, 991, 1103, 1433, 1489, 1531, 1553, 1709, 1721, 2371, 2393, 2447, 2633, 2789, 2833, 2897, 3041, 3109, 3217, 3371, 3373, 3527, 3547, 3593, 3671, 3691, 4057, 4153, 4211, 4297, 4363
Offset: 1

Views

Author

Naohiro Nomoto, Mar 29 2002

Keywords

Crossrefs

Cf. A002858.

Programs

  • Maple
    # Function 'UlamList' is defined in A002858.
    UlamPrimes := n -> select(k->isprime(k), UlamList(n)):
    UlamPrimes(403); # Peter Luschny, Apr 05 2019

A170896 Number of ON cells after n generations of the Schrandt-Ulam cellular automaton on the square grid that is described in the Comments.

Original entry on oeis.org

0, 1, 5, 9, 13, 25, 29, 41, 53, 65, 85, 97, 117, 145, 157, 169, 181, 201, 229, 249, 285, 321, 365, 409, 445, 497, 549, 577, 605, 633, 669, 713, 757, 825, 893, 969, 1045, 1105, 1173, 1241, 1309, 1377, 1437, 1473, 1541, 1609, 1693, 1793, 1869, 1945, 2037, 2105, 2189, 2281, 2381, 2521, 2621, 2753, 2869, 2969, 3053, 3129, 3237, 3377, 3485, 3585, 3685, 3817, 3909
Offset: 0

Views

Author

N. J. A. Sloane, Jan 09 2010

Keywords

Comments

The cells are the squares of the standard square grid.
Cells are either OFF or ON, once they are ON they stay ON, and we begin in generation 1 with 1 ON cell.
Each cell has 4 neighbors, those that it shares an edge with. Cells that are ON at generation n all try simultaneously to turn ON all their neighbors that are OFF. They can only do this at this point in time; afterwards they go to sleep (but stay ON).
A square Q is turned ON at generation n+1 if:
a) Q shares an edge with one and only one square P (say) that was turned ON at generation n (in which case the two squares which intersect Q only in a vertex not on that edge are called Q's "outer squares"), and
b) Q's outer squares were not turned ON in any previous generation.
c) In addition, of this set of prospective squares of the (n+1)th generation satisfying the previous condition, we eliminate all squares which are outer squares of other prospective squares.
A151895, A151906, and A267190 are closely related cellular automata.

References

  • D. Applegate, Omar E. Pol and N. J. A. Sloane, The Toothpick Sequence and Other Sequences from Cellular Automata, Congressus Numerantium, Vol. 206 (2010), 157-191.

Crossrefs

Cf. A139250, A170897 (first differences), A151895, A151896, A151906, A267190.

Formula

We do not know of a recurrence or generating function.

Extensions

Entry (including definition) revised by David Applegate and N. J. A. Sloane, Jan 21 2016

A183527 An Ulam-type sequence: a(n) = n if n<=4; for n>4, a(n) = least number > a(n-1) which is a unique sum of 4 distinct earlier terms.

Original entry on oeis.org

1, 2, 3, 4, 10, 16, 17, 18, 19, 22, 64, 65, 66, 68, 69, 128, 132, 188, 190, 191, 194, 252, 253, 255, 313, 314, 318, 374, 376, 377, 436, 441, 496, 497, 499, 500, 502, 560, 561, 563, 621, 622, 626, 682, 684, 685, 687, 745, 746, 805, 811
Offset: 1

Views

Author

Keywords

Comments

An Ulam-type sequence - see A002858 for further information.

Examples

			a(5) = 10 = 1 + 2 + 3 + 4 = 4*5/2, because it is the least number >4 with a unique sum of 4 distinct earlier terms.
a(6) = 16 = 1 + 2 + 3 + 10 = 4^2, because it is the least number >10 with a unique sum of 4 distinct earlier terms.
		

Crossrefs

Programs

  • Maple
    # see A183534 for programs.

Formula

Conjectured G.f.: (-61*x^124-56*x^118+53*x^117+3*x^116 -x^115+2*x^114-65*x^113-58*x^112+57*x^111 -56*x^110-x^109-57*x^108+54*x^106 +3*x^105+58*x^104-52*x^102+50*x^101-55*x^100 +56*x^95-53*x^94-3*x^93+x^92-2*x^91 +2*x^90+x^87-x^86 +41*x^84-51*x^83-66*x^82-58*x^81 -52*x^79+4*x^78-58*x^77 -x^74-x^73-x^72-54*x^71 -6*x^70-59*x^69-x^68-58*x^67-2*x^66 -x^65-2*x^64-56*x^63-4*x^62-x^61 -58*x^60-2*x^59-59*x^58-x^57-x^56 -2*x^55-x^54-x^53-54*x^52-6*x^51 -59*x^50-x^49-58*x^48-2*x^47-x^46 -2*x^45-56*x^44-4*x^43-x^42-58*x^41 -2*x^40-x^39-58*x^38-2*x^37-x^36 -2*x^35-x^34-55*x^33-5*x^32-59*x^31 -x^30-2*x^29-56*x^28-4*x^27-x^26 -58*x^25-2*x^24-x^23-58*x^22-3*x^21 -x^20-2*x^19-56*x^18-4*x^17-59*x^16 -x^15-2*x^14-x^13-x^12-42*x^11 -3*x^10-x^9-x^8-x^7-6*x^6 -6*x^5-x^4-x^3-x^2-x) / (-x^74+x^73+x-1). (This has been verified for n up to 1000.)

A183533 An Ulam-type sequence: a(n) = n if n<=10; for n>10, a(n) = least number > a(n-1) which is a unique sum of 10 distinct earlier terms.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 55, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 145, 163, 190, 217, 235, 271, 280, 1740, 1741, 1744, 1745, 1799, 1804, 1805, 1824, 1825, 1831, 1859, 1869, 1913, 1914, 3554, 10521, 10522, 10526, 10527, 10537, 10563, 10564
Offset: 1

Views

Author

Keywords

Comments

An Ulam-type sequence - see A002858 for further information.

Examples

			a(11) = 55 = 1 + ... + 10 = 10*11/2, because it is the least number >10 with a unique sum of 10 distinct earlier terms.
a(12) = 100 = 1 + ... + 9 + 55 = 10^2, because it is the least number >55 with a unique sum of 10 distinct earlier terms.
		

Crossrefs

Column k=10 of A183534.

Programs

  • Maple
    # see A183534 for programs.

A003666 a(n) is smallest number which is uniquely of the form a(j) + a(k) with 1 <= j < k < n and a(1) = 1, a(2) = 4.

Original entry on oeis.org

1, 4, 5, 6, 7, 8, 10, 16, 18, 19, 21, 31, 32, 33, 42, 46, 56, 57, 66, 70, 79, 82, 91, 96, 104, 105, 107, 116, 129, 130, 131, 141, 158, 165, 168, 179, 180, 182, 191, 204, 205, 206, 216, 217, 218, 219, 229, 230, 244, 256, 266, 267, 268, 281, 290, 315, 316, 317, 318, 328
Offset: 1

Views

Author

Keywords

Comments

An Ulam-type sequence - see A002858 for many further references, comments, etc. - T. D. Noe, Jan 21 2008

References

  • R. K. Guy, "s-Additive sequences", preprint, 1994.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Haskell
    a003666 n = a003666_list !! (n-1)
    a003666_list = 1 : 4 : ulam 2 4 a003666_list
    -- Function ulam as defined in A002858.
    -- Reinhard Zumkeller, Nov 03 2011
  • Mathematica
    Nest[Append[#, SelectFirst[Union@ Select[Tally@ Map[Total, Select[Permutations[#, {2}], #1 < #2 & @@ # &]], Last@ # == 1 &][[All, 1]], Function[k, FreeQ[#, k]]]] &, {1, 4}, 58] (* Michael De Vlieger, Nov 16 2017 *)

A167408 Orderly numbers: a number n is orderly if there exists some number k > tau(n) such that the set of the divisors of n is congruent to the set {1,2,...,tau(n)} mod k.

Original entry on oeis.org

1, 2, 5, 7, 8, 9, 11, 12, 13, 17, 19, 20, 23, 27, 29, 31, 37, 38, 41, 43, 47, 52, 53, 57, 58, 59, 61, 67, 68, 71, 72, 73, 76, 79, 83, 87, 89, 97, 101, 103, 107, 109, 113, 117, 118, 124, 127, 131, 133, 137, 139, 149, 151, 157, 158, 162, 163, 164, 167, 173, 177, 178, 179
Offset: 1

Views

Author

Andrew Weimholt, Nov 03 2009

Keywords

Comments

n: {divisors(n)} == {1,2,...,tau(n)} mod k
-------------------------------------------
1: {1} == {1} mod 2
2: {1,2} == {1,2} mod 3
5: {1,5} == {1,2} mod 3
7: {1,7} == {1,2} mod 5
8: {1,2,8,4} == {1,2,3,4} mod 5
9: {1,9,3} == {1,2,3} mod 7
11: {1,11} == {1,2} mod 3 or 9
12: {1,2,3,4,12,6} == {1,2,3,4,5,6} mod 7
13: {1,13} == {1,2} mod 11
17: {1,17} == {1,2} mod 3,5, or 15
19: {1,19} == 1,2 mod 17
20: {1,2,10,4,5,20} == {1,2,3,4,5,6} mod 7
23: {1,23} == {1,2} mod 3,7, or 21
27: {1,27,3,9} == {1,2,3,4} mod 5
29: {1,29} == {1,2} mod 3,9, or 27
31: {1,31} == {1,2} mod 29
37: {1,37} == 1,2 mod 5,7, or 35
38: {1,2,38,19} == {1,2,3,4} mod 5
41: {1,41} == {1,2} mod 3,13, or 39
43: {1,43} == {1,2} mod 41
47: {1,47} == {1,2} mod 3,5,9,15, or 45
52: {1,2,52,4,26,13} == {1,2,3,4,5,6} mod 7
53: {1,53} == {1,2} mod 3,17, or 51
57: {1,57,3,19} == {1,2,3,4} mod 5
58: {1,2,58,29} == {1,2,3,4} mod 5
59: {1,59} == {1,2} mod 3,19, or 57
61: {1,61} == {1,2} mod 59
67: {1,67} == {1,2} mod 5,13, or 65
68: {1,2,17,4,68,34} == {1,2,3,4,5,6} mod 7
71: {1,71} == {1,2} mod 3,23, or 69
72: {1,2,3,4,18,6,72,8,9,36,24,12} == {1,2,3,4,5,6,7,8,9,10,11,12} mod 13
73: {1,73} == {1,2} mod 71
76: {1,2,38,4,19,76} == {1,2,3,4,5,6} mod 7
79: {1,79} == {1,2} mod 7,11, or 77
83: {1,83} == {1,2} mod 3,9,27, or 81
87: {1,87,3,29} == {1,2,3,4} mod 5
89: {1,89} == {1,2} mod 3,29, or 87
97: {1,97} == {1,2} mod 5,19, or 95
The primes other than 3 are orderly.
Numbers of the form 4p are orderly when p is an odd prime congruent to 3,5, or 6 mod 7.
For primes, k values can be p-2 or a divisor of p-2 other than 1.
T. D. Noe observed that for composite orderly numbers, n, k seems to be one of the three values: tau(n)+1, tau(n)+3, tau(n)+4.
The composite numbers with k = tau(n)+4 are of the form p^2, where prime p == 3 mod 7.
The orderly numbers with k = tau(n)+3 come in many forms. See A168003. It appears that tau(n)+3 is a prime with primitive root 2 (A001122).
The forms for composite orderly numbers with k = tau(n)+1 are too numerous to list here, but seem to occur for any prime k > 3.
Let p be any prime. Then p^(m-2) is in this sequence if m is a prime with primitive root p. For example, 2^(m-2) is here for every m in A001122; 3^(m-2) is here for every m in A019334; 5^(m-2) is here for every m in A019335. For every prime p, there appear to be an infinite number of prime powers p^(m-2) here. All these numbers are actually very orderly (A167409) because we can choose k = tau(n)+1. - T. D. Noe, Nov 04 2009

Examples

			12 is an orderly number because 12's divisors are 1,2,3,4,6,12 and
   1 == 1 (mod 7)
   2 == 2 (mod 7)
   3 == 3 (mod 7)
   4 == 4 (mod 7)
  12 == 5 (mod 7)
   6 == 6 (mod 7)
		

Crossrefs

Cf. A167409 = very orderly numbers (k = tau(n) + 1).
Cf. A167410 = disorderly numbers = numbers not in this sequence.
Cf. A167411 = minimal k values for the orderly numbers.

Programs

  • Mathematica
    orderlyQ[n_] := (For[dd = Divisors[n]; tau = Length[dd]; k = 3, k <= Max[tau + 4, Last[dd] - 2], k++, If[ Union[ Mod[dd, k]] == Range[tau], Return[True]]]; False); Select[ Range[180], orderlyQ] (* Jean-François Alcover, Aug 19 2013 *)

Extensions

Minor editing by N. J. A. Sloane, Nov 06 2009
Information about the tau(n)+3 orderly numbers corrected by T. D. Noe, Nov 16 2009

A033629 Numbers that are not the sum of two distinct Ulam numbers.

Original entry on oeis.org

23, 25, 33, 35, 43, 45, 67, 92, 94, 96, 111, 121, 136, 143, 160, 165, 170, 172, 187, 194, 204, 226, 231, 248, 265, 270, 280, 287, 292, 297, 302, 304, 314, 331, 336, 346, 348, 353, 368, 380, 397, 407, 419, 424, 446, 463, 468, 473, 475, 480, 490, 495, 507
Offset: 1

Views

Author

Keywords

References

  • R. K. Guy, Unsolved Problems in Number Theory, C4

Crossrefs

Cf. A002858.

Programs

  • Mathematica
    terms = 1000; ulams = {1, 2};
    Do[AppendTo[ulams, n = Last[ulams]; While[n++; Length[ DeleteCases[ Intersection[ ulams, n - ulams], n/2, 1, 1]] != 2]; n], {terms}];
    uu = Total /@ Subsets[ulams, {2}] // Union;
    Complement[Range[Last[uu]], uu] // Take[#, {3, terms+2}]& (* Jean-François Alcover, Dec 02 2018 *)
  • PARI
    aupto(N)= my(S=Vec([1, 1], N), U=[]); for(i=1, N, if(1==S[i], for(j=1, #U, my(t=i+U[j]); if(t>N, break); S[t]++); U=concat(U, i))); Vec(select(x->!x, S, 1)) \\ Ruud H.G. van Tol, Jul 05 2025
Previous Showing 31-40 of 116 results. Next