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.

Showing 1-10 of 10 results.

A003309 Ludic numbers: apply the same sieve as Eratosthenes, but cross off every k-th remaining number.

Original entry on oeis.org

1, 2, 3, 5, 7, 11, 13, 17, 23, 25, 29, 37, 41, 43, 47, 53, 61, 67, 71, 77, 83, 89, 91, 97, 107, 115, 119, 121, 127, 131, 143, 149, 157, 161, 173, 175, 179, 181, 193, 209, 211, 221, 223, 227, 233, 235, 239, 247, 257, 265, 277, 283, 287, 301, 307, 313
Offset: 1

Views

Author

Keywords

Comments

The definition can obviously only be applied from k = a(2) = 2 on: for k = 1, all remaining numbers would be deleted. - M. F. Hasler, Nov 02 2024

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Without the initial 1 occurs as the leftmost column in arrays A255127 and A260717.
Cf. A003310, A003311, A100464, A100585, A100586 (variants).
Cf. A192503 (primes in sequence), A192504 (nonprimes), A192512 (number of terms <= n).
Cf. A192490 (characteristic function).
Cf. A192607 (complement).
Cf. A260723 (first differences).
Cf. A255420 (iterates of f(n) = A003309(n+1) starting from n=1).
Subsequence of A302036.
Cf. A237056, A237126, A237427, A235491, A255407, A255408, A255421, A255422, A260435, A260436, A260741, A260742 (permutations constructed from Ludic numbers).
Cf. also A000959, A008578, A255324, A254100, A272565 (Ludic factor of n), A297158, A302032, A302038.
Cf. A376237 (ludic factorial: cumulative product), A376236 (ludic Fortunate numbers).

Programs

  • Haskell
    a003309 n = a003309_list !! (n - 1)
    a003309_list = 1 : f [2..] :: [Int]
       where f (x:xs) = x : f (map snd [(u, v) | (u, v) <- zip [1..] xs,
                                                 mod u x > 0])
    -- Reinhard Zumkeller, Feb 10 2014, Jul 03 2011
    
  • Maple
    ludic:= proc(N) local i, k,S,R;
      S:= {$2..N};
      R:= 1;
      while nops(S) > 0 do
        k:= S[1];
        R:= R,k;
        S:= subsop(seq(1+k*j=NULL, j=0..floor((nops(S)-1)/k)),S);
      od:
    [R];
    end proc:
    ludic(1000); # Robert Israel, Feb 23 2015
  • Mathematica
    t = Range[2, 400]; r = {1}; While[Length[t] > 0, k = First[t]; AppendTo[r, k]; t = Drop[t, {1, -1, k}];]; r (* Ray Chandler, Dec 02 2004 *)
  • PARI
    t=vector(399,x,x+1); r=[1]; while(length(t)>0, k=t[1];r=concat(r,[k]);t=vector((length(t)*(k-1))\k,x,t[(x*k+k-2)\(k-1)])); r \\ Phil Carmody, Feb 07 2007
    
  • PARI
    A3309=[1]; next_A003309(n)=nn && break); n+!if(n=setsearch(A3309,n+1,1),return(A3309[n])) \\ Should be made more efficient if n >> max(A3309). - M. F. Hasler, Nov 02 2024
    {A003309(n) = while(n>#A3309, next_A003309(A3309[#A3309])); A3309[n]} \\ Should be made more efficient in case n >> #A3309. - M. F. Hasler, Nov 03 2024
    
  • PARI
    upto(nn)= my(r=List([1..nn]), p=1); while(p++<#r, my(k=r[p], i=p); while((i+=k)<=#r, listpop(~r, i); i--)); Vec(r); \\ Ruud H.G. van Tol, Dec 13 2024
    
  • Python
    remainders = [0]
    ludics = [2]
    N_MAX = 313
    for i in range(3, N_MAX) :
        ludic_index = 0
        while ludic_index < len(ludics) :
            ludic = ludics[ludic_index]
            remainder = remainders[ludic_index]
            remainders[ludic_index] = (remainder + 1) % ludic
            if remainders[ludic_index] == 0 :
                break
            ludic_index += 1
        if ludic_index == len(ludics) :
            remainders.append(0)
            ludics.append(i)
    ludics = [1] + ludics
    print(ludics)
    # Alexandre Herrera, Aug 10 2023
    
  • Python
    def A003309(): # generator of the infinite list of ludic numbers
        L = [2, 3]; yield 1; yield 2; yield 3
        while k := len(L)//2: # could take min{k | k >= L[-1-k]-1}
            for j in L[-1-k::-1]: k += 1 + k//(j-1)
            L.append(k+2); yield k+2
    A003309_upto = lambda N=99: [t for t,_ in zip(A003309(),range(N))]
    # M. F. Hasler, Nov 02 2024
  • Scheme
    (define (A003309 n) (if (= 1 n) n (A255127bi (- n 1) 1))) ;; Code for A255127bi given in A255127.
    ;; Antti Karttunen, Feb 23 2015
    

Formula

Complement of A192607; A192490(a(n)) = 1. - Reinhard Zumkeller, Jul 05 2011
From Antti Karttunen, Feb 23 2015: (Start)
a(n) = A255407(A008578(n)).
a(n) = A008578(n) + A255324(n).
(End)

Extensions

More terms from David Applegate and N. J. A. Sloane, Nov 23 2004

A260741 Permutation of natural numbers: a(1) = 1, for n > 1: a(n) = A255127(A260438(n), a(A260439(n))).

Original entry on oeis.org

1, 2, 3, 4, 9, 6, 5, 8, 7, 18, 15, 12, 11, 10, 13, 16, 21, 14, 19, 36, 17, 30, 51, 24, 23, 22, 31, 20, 33, 26, 25, 32, 29, 42, 27, 28, 37, 38, 35, 72, 45, 34, 41, 60, 55, 102, 39, 48, 43, 46, 47, 44, 105, 62, 73, 40, 59, 66, 87, 52, 49, 50, 53, 64, 69, 58, 61, 84, 67, 54, 63, 56, 71, 74, 77, 76, 57, 70, 83, 144, 125, 90, 75, 68, 101, 82, 89, 120
Offset: 1

Views

Author

Antti Karttunen, Jul 30 2015

Keywords

Comments

This is a more recursed variant of A260435.

Crossrefs

Inverse: A260742.
Similar permutations: A260435, A250245, A250246.

Formula

a(1) = 1, for n > 1: a(n) = A255127(A260438(n), a(A260439(n))).
Other identities. For all n >= 1:
a(A000959(n+1)) = A003309(n+2). [Maps Lucky numbers to odd Ludic numbers.]
a(n) = a(2n)/2. [The even bisection halved gives the sequence back.]

A269171 Permutation of natural numbers: a(1) = 1, a(2n) = 2*a(n), a(2n+1) = A269379(a(A268674(2n+1))).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 23, 20, 21, 22, 25, 24, 19, 26, 27, 28, 29, 30, 37, 32, 33, 34, 35, 36, 41, 46, 39, 40, 43, 42, 47, 44, 45, 50, 53, 48, 31, 38, 51, 52, 61, 54, 49, 56, 57, 58, 67, 60, 71, 74, 63, 64, 65, 66, 77, 68, 69, 70, 83, 72, 89, 82, 75, 92, 59, 78, 91, 80, 81, 86, 97, 84, 79, 94, 87, 88, 107, 90, 85, 100
Offset: 1

Views

Author

Antti Karttunen, Mar 03 2016

Keywords

Crossrefs

Inverse: A269172.
Related or similar permutations: A260741, A260742, A269355, A269357, A255421, A252754, A252756, A269385, A269387.
Cf. also A269393 (a(3n)/3) and A269395.
Differs from A255407 for the first time at n=38, where a(38) = 46, while A255407(38) = 38.

Formula

a(1) = 1, then after for even n, a(n) = 2*a(n/2), and for odd n, a(n) = A269379(a(A268674(n))).
a(1) = 1, for n > 1, a(n) = A255127(A055396(n), a(A078898(n))).
As a composition of other permutations:
a(n) = A269385(A252756(n)).
a(n) = A269387(A252754(n)).
Other identities. For all n >= 1:
A000035(a(n)) = A000035(n). [Preserves the parity of n.]
a(A008578(n)) = A003309(n). [Maps noncomposites to Ludic numbers.]

A269172 Permutation of natural numbers: a(1) = 1, a(2n) = 2*a(n), a(2n+1) = A250469(a(A269380(2n+1))).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 25, 20, 21, 22, 19, 24, 23, 26, 27, 28, 29, 30, 49, 32, 33, 34, 35, 36, 31, 50, 39, 40, 37, 42, 41, 44, 45, 38, 43, 48, 55, 46, 51, 52, 47, 54, 121, 56, 57, 58, 77, 60, 53, 98, 63, 64, 65, 66, 59, 68, 69, 70, 61, 72, 169, 62, 75, 100, 67, 78, 85, 80, 81
Offset: 1

Views

Author

Antti Karttunen, Mar 03 2016

Keywords

Crossrefs

Inverse: A269171.
Related or similar permutations: A260741, A260742, A269356, A269358, A255422.
Cf. also A269394 (a(3n)/3) and A269396.
Differs from A255408 for the first time at n=38, where a(38) = 50, while A255408(38) = 38.

Formula

a(1) = 1, then after for even n, a(n) = 2*a(n/2), and for odd n, A250469(a(A269380(n))).
a(1) = 1, for n > 1, a(n) = A083221(A260738(n), a(A260739(n))).
As a composition of other permutations:
a(n) = A252755(A269386(n)).
a(n) = A252753(A269388(n)).
Other identities. For all n >= 1:
A000035(a(n)) = A000035(n). [This permutation preserves the parity of n.]
a(A003309(n)) = A008578(n). [Maps Ludic numbers to noncomposites.]

A269388 Permutation of natural numbers: a(1) = 0, after which, a(2n) = 1 + 2*a(n), a(2n+1) = 2 * a(A269380(n)).

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 8, 7, 6, 9, 16, 11, 32, 17, 10, 15, 64, 13, 12, 19, 14, 33, 128, 23, 256, 65, 18, 35, 512, 21, 24, 31, 22, 129, 20, 27, 1024, 25, 34, 39, 2048, 29, 4096, 67, 30, 257, 8192, 47, 28, 513, 26, 131, 16384, 37, 48, 71, 38, 1025, 40, 43, 32768, 49, 66, 63, 36, 45, 65536, 259, 46, 41, 131072, 55, 96, 2049, 130, 51, 262144, 69, 44
Offset: 1

Views

Author

Antti Karttunen, Mar 01 2016

Keywords

Comments

Note the indexing: Domain starts from 1, range from 0.

Crossrefs

Inverse: A269387.
Cf. A269380.
Related permutations: A260742, A269386, A269172.
Cf. also A252754, A269378.
Differs from A156552, A252754 and A246677(n-1) for the first time at n=19, which here a(19)=12, instead of 128.

Formula

a(1) = 0, after which, a(2n) = 1 + 2*a(n), a(2n+1) = 2 * a(A269380(n)).
As a composition of other permutations:
a(n) = A252754(A269172(n)).
a(n) = A269378(A260742(n)).

A260436 Permutation mapping from Ludic sieve to Lucky sieve: a(1) = 1, for n > 1: a(n) = A255551(A260738(n), A260739(n)).

Original entry on oeis.org

1, 2, 3, 4, 7, 6, 9, 8, 5, 10, 13, 12, 15, 14, 11, 16, 21, 18, 19, 20, 17, 22, 25, 24, 31, 26, 23, 28, 33, 30, 27, 32, 29, 34, 39, 36, 37, 38, 35, 40, 43, 42, 49, 44, 41, 46, 51, 48, 61, 50, 47, 52, 63, 54, 45, 56, 53, 58, 57, 60, 67, 62, 59, 64, 81, 66, 69, 68, 65, 70, 73, 72, 55, 74, 71, 76, 75, 78, 103, 80, 77, 82, 79, 84, 91, 86, 83, 88
Offset: 1

Views

Author

Antti Karttunen, Jul 30 2015

Keywords

Comments

a(n) tells which number in array A255551 (constructed from Lucky sieve) is at the same position where n is in array A255127 (constructed from Ludic sieve). This permutation fixes all even numbers because both arrays have A005843 as their topmost row.

Crossrefs

Inverse: A260435.
Similar permutations: A255408, A255128, A255551, A255553, A249817, A249818, A260742 (a more recursed variant).

Programs

Formula

Other identities. For all n >= 1:
a(A003309(n+2)) = A000959(n+1). [Maps odd Ludic numbers to Lucky numbers.]
a(2n) = 2n.
As a composition of related permutations:
a(n) = A255551(A255128(n)).
a(n) = A255553(A255408(n)).

A269375 Tree of Lucky sieve, mirrored: a(0) = 1, a(1) = 2; after which a(2n) = 2*a(n), a(2n+1) = A269369(a(n)).

Original entry on oeis.org

1, 2, 4, 3, 8, 5, 6, 7, 16, 17, 10, 19, 12, 11, 14, 9, 32, 41, 34, 61, 20, 23, 38, 27, 24, 29, 22, 39, 28, 35, 18, 13, 64, 89, 82, 145, 68, 95, 122, 91, 40, 53, 46, 81, 76, 107, 54, 45, 48, 65, 58, 103, 44, 59, 78, 57, 56, 77, 70, 123, 36, 47, 26, 15, 128, 185, 178, 313, 164, 239, 290, 217, 136, 197, 190, 333, 244, 359, 182, 147, 80
Offset: 0

Views

Author

Antti Karttunen, Mar 01 2016

Keywords

Comments

Permutation of natural numbers obtained from the Lucky sieve. Note the indexing: Domain starts from 0, range from 1.
This sequence can be represented as a binary tree. Each left hand child is obtained by doubling the parent's contents, and each right hand child is obtained by applying A269369 to the parent's contents:
1
|
...................2...................
4 3
8......../ \........5 6......../ \........7
/ \ / \ / \ / \
/ \ / \ / \ / \
/ \ / \ / \ / \
16 17 10 19 12 11 14 9
32 41 34 61 20 23 38 27 24 29 22 39 28 35 18 13
etc.
Sequence A269377 is obtained from the mirror image of the same tree.

Crossrefs

Inverse: A269376.
Cf. A000959 (with 2 inserted between 1 and 3 forms the right edge of the tree).
Related or similar permutations: A163511, A260742, A269377.
Cf. also A252755, A269385.

Formula

a(0) = 1, a(1) = 2; after which, a(2n) = 2*a(n), a(2n+1) = A269369(a(n)).
As a composition of related permutations:
a(n) = A260742(A269385(n)).
Other identities. For all n >= 2:
A000035(a(n)) = A000035(n). [This permutation preserves the parity of n from a(2)=4 onward.]

A269377 Tree of Lucky sieve: a(0) = 1, a(1) = 2; after which a(2n) = A269369(a(n)), a(2n+1) = 2*a(n).

Original entry on oeis.org

1, 2, 3, 4, 7, 6, 5, 8, 9, 14, 11, 12, 19, 10, 17, 16, 13, 18, 35, 28, 39, 22, 29, 24, 27, 38, 23, 20, 61, 34, 41, 32, 15, 26, 47, 36, 123, 70, 77, 56, 57, 78, 59, 44, 103, 58, 65, 48, 45, 54, 107, 76, 81, 46, 53, 40, 91, 122, 95, 68, 145, 82, 89, 64, 21, 30, 71, 52, 165, 94, 101, 72, 183, 246, 203, 140, 271, 154, 161, 112, 97
Offset: 0

Views

Author

Antti Karttunen, Mar 01 2016

Keywords

Comments

Permutation of natural numbers obtained from the Lucky sieve. Note the indexing: Domain starts from 0, range from 1.
This sequence can be represented as a binary tree. After a(1)=2, each left hand child is obtained by applying A269369 to the parent, and each right hand child is obtained by doubling the contents of the parent node, when the parent node contains n:
1
|
...................2...................
3 4
7......../ \........6 5......../ \........8
/ \ / \ / \ / \
/ \ / \ / \ / \
/ \ / \ / \ / \
9 14 11 12 19 10 17 16
13 18 35 28 39 22 29 24 27 38 23 20 61 34 41 32
etc.
Sequence A269375 is obtained from the mirror image of the same tree.

Crossrefs

Inverse: A269378.
Cf. A269369.
Cf. A000959 (with 2 inserted between 1 and 3 forms the left edge of the tree).
Related permutation: A269375.
Cf. also A252753, A269387.

Formula

a(0) = 1, a(1) = 2; after which, a(2n) = A269369(a(n)), a(2n+1) = 2*a(n).
As a composition of related permutations:
a(n) = A260742(A269387(n)).

A269386 Permutation of nonnegative integers: a(1) = 0, a(2) = 1, a(2n) = 2*a(n), a(2n+1) = 1 + 2*a(A269380(2n+1)).

Original entry on oeis.org

0, 1, 3, 2, 7, 6, 15, 4, 5, 14, 31, 12, 63, 30, 13, 8, 127, 10, 11, 28, 9, 62, 255, 24, 511, 126, 29, 60, 1023, 26, 23, 16, 25, 254, 27, 20, 2047, 22, 61, 56, 4095, 18, 8191, 124, 17, 510, 16383, 48, 19, 1022, 21, 252, 32767, 58, 47, 120, 57, 2046, 55, 52, 65535, 46, 125, 32, 59, 50, 131071, 508, 49, 54, 262143, 40, 95, 4094, 253, 44
Offset: 1

Views

Author

Antti Karttunen, Mar 01 2016

Keywords

Comments

Note the indexing: Domain starts from 1, range from 0.

Crossrefs

Inverse: A269385.
Cf. A269380.
Related permutations: A260742, A269172, A269388.
Cf. also A252756, A269376.
Differs from A243071 and A252756 for the first time at n=19, which here a(19) = 11, instead of 255.

Formula

a(1) = 0, a(2) = 1, a(2n) = 2*a(n), a(2n+1) = 1 + 2*a(A269380(2n+1)).
As a composition of related permutations:
a(n) = A252756(A269172(n)).
a(n) = A269376(A260742(n)).

A260722 Difference between n-th odd Ludic and n-th Lucky number: a(1) = 0; for n > 1: a(n) = A003309(n+1) - A000959(n).

Original entry on oeis.org

0, 0, -2, -2, -2, -2, -4, -2, -6, -4, 0, -2, -6, -4, -10, -6, -2, -2, 2, 4, 2, -2, -2, 2, 4, 4, -6, -2, -2, 8, 8, 6, 2, 10, 6, 8, -8, 0, 14, 10, 16, 12, 8, 10, 4, 4, 10, 16, 6, 16, 16, 14, 18, 22, 24, 32, 28, 30, 22, 32, 32, 30, 38, 34, 32, 36, 40, 30, 28, 28, 32, 24, 22, 24, 36, 38, 42, 30, 30, 22, 26, 26, 30, 38, 40, 30, 36, 46, 48, 46, 56, 54, 54, 54, 40, 46
Offset: 1

Views

Author

Antti Karttunen, Aug 06 2015

Keywords

Comments

Equally: for n >= 2, the difference between (n+1)-th Ludic and n-th Lucky number.

Crossrefs

Cf. A000959, A003309, A031883, A260721 (same terms divided by two), A260723, A256486, A256487.
Cf. also permutations A260435, A260436, A260741, A260742.

Programs

Formula

a(1) = 0; for n > 1: a(n) = A003309(n+1) - A000959(n).
Other identities. For all n >= 2:
a(n) = A256486(n) + A260723(n).
a(n) = A256486(n+1) + A031883(n).
Showing 1-10 of 10 results.