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-8 of 8 results.

A262509 Numbers n such that there is no other number k for which A155043(k) = A155043(n).

Original entry on oeis.org

0, 119143, 119147, 119163, 119225, 119227, 119921, 119923, 120081, 120095, 120097, 120101, 120281, 120293, 120349, 120399, 120707, 120747, 120891, 120895, 120903, 120917, 120919, 121443, 121551, 121823, 122079, 122261, 122263, 122273, 122277, 122813, 122961, 123205, 123213, 123223, 123237, 123257, 123765, 24660543, 24660549, 24662311, 24662329, 24663759, 24664997, 24665023, 24665351
Offset: 0

Views

Author

Antti Karttunen, Sep 25 2015

Keywords

Comments

Starting offset is zero, because a(0) = 0 is a special case in this sequence.
Numbers where A155043 takes a unique value. (Those values are given by A262508.)
Numbers n such that there does not exist any other number h from which one could reach zero in exactly the same number of steps as from n by repeatedly applying the map where k is replaced by k - A000005(k) = A049820(k). Thus in the tree where zero is the root and parent-child relation is given by A049820(child) = parent, all the numbers > n+t (where t is a small value depending on n) have n as their common ancestor. As it is guaranteed that there is at least one infinite path in such a tree, any n in this sequence can be neither a leaf nor any other vertex in a finite side-tree, as then at least one node in the infinite part would have the same distance to the root, thus it must be that n itself is in the infinite part and thus has an infinite number of descendant vertices. Also, for the same reason, the tree cannot branch to two infinite parts from any ancestor of n (which are nodes nearer to the root of the tree, zero).
From the above it follows that if this sequence is infinite, then A259934 is guaranteed to be the only infinite sequence which starts with a(0)=0 and satisfies the condition A049820(a(k)) = a(k-1) for all k>=1, where A049820(n) = n-d(n) and d(n) is the number of divisors of n (A000005). This is a sufficient condition for the uniqueness of A259934, although not necessary. See e.g. A179016 which is the unique infinite solution to a similar problem, even though A086876 contains no ones after its two initial terms.
Is it possible for any even terms to occur after zero? If not, then apart from zero, this would be a subsequence of A262517.

Crossrefs

Subsequence of A259934, A261089, A262503 and A262513.
Cf. A262510 (gives the parent nodes for the terms a(1) onward), A262514, A262516, A262517.
Cf. also A086876, A179016.

Programs

  • PARI
    \\ Compute A262508 and A262509 at the same time:
    allocatemem((2^31)+(2^30));
    \\ The limits used are quite ad hoc. Beware of the horizon-effect if you change these.
    \\ As a post-check, test that A262509(n) = A259934(A262508(n)) for all the terms produced by this program.
    uplim1 = 43243200 + 672; \\ = A002182(54) + A002183(54).
    uplim2 = 36756720; \\ = A002182(53).
    uplim3 = 10810800; \\
    v155043 = vector(uplim1);
    v262503 = vector(uplim3);
    v262507 = vector(uplim3);
    v155043[1] = 1; v155043[2] = 1;
    for(i=3, uplim1, v155043[i] = 1 + v155043[i-numdiv(i)]);
    A155043 = n -> if(!n,n,v155043[n]);
    for(i=1, uplim1, v262503[v155043[i]] = i; v262507[v155043[i]]++; if(!(i%1048576),print1(i,", ")));
    A262503 = n -> if(!n,n,v262503[n]);
    A262507 = n -> if(!n,1,v262507[n]);
    k=0; for(n=0, uplim3, if((1==A262507(n)) && (A262503(n) <= uplim2), write("b262508.txt", k, " ", n); write("b262509.txt", k, " ", A262503(n)); k++));
    
  • Scheme
    (define (A262509 n) (A261089 (A262508 n)))

Formula

a(n) = A261089(A262508(n)) = A262503(A262508(n)) = A259934(A262508(n)).

A213708 a(n) is the least inverse of A071542, i.e., minimal i such that A071542(i) = n.

Original entry on oeis.org

0, 1, 2, 4, 6, 8, 10, 12, 16, 18, 20, 24, 28, 32, 34, 36, 40, 44, 48, 52, 56, 60, 64, 66, 68, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 126, 128, 130, 132, 136, 140, 144, 148, 152, 156, 160, 164, 168, 172, 176, 180, 184, 190, 192, 196, 200, 204, 208, 212, 216, 222, 226, 232, 238, 244, 250, 256, 258, 260, 264, 268, 272, 276
Offset: 0

Views

Author

Antti Karttunen, Oct 24 2012

Keywords

Comments

Also the positions in A071542 where new records appear, record values appearing in the ascending order, i.e., as A001477 (because A071542 is a monotone and surjective function).

Crossrefs

Cf. A173601 for the greatest inverse. A086876 gives the first differences.

Programs

  • Mathematica
    Function[s, Map[FirstPosition[s, #] &, Union@ s]]@ Table[-1 + Length@ NestWhileList[# - DigitCount[#, 2, 1] &, n, # > 0 &], {n, 276}] // Flatten (* Michael De Vlieger, Jul 16 2017 *)

A173601 Greatest inverse of A071542, i.e., a(n) = maximal i such that A071542(i) = n.

Original entry on oeis.org

0, 1, 3, 5, 7, 9, 11, 15, 17, 19, 23, 27, 31, 33, 35, 39, 43, 47, 51, 55, 59, 63, 65, 67, 71, 75, 79, 83, 87, 91, 95, 99, 103, 107, 111, 115, 119, 125, 127, 129, 131, 135, 139, 143, 147, 151, 155, 159, 163, 167, 171, 175, 179, 183, 189, 191, 195, 199, 203, 207
Offset: 0

Views

Author

Keywords

Comments

What is s = lim sup a(n)/(n log_2(n))? A counting argument suggests s >= 1/2, and in any case s <= 1.
Essentially also the partial sums of A086876. - Antti Karttunen, Nov 10 2012 (per personal mail from Carl R. White, Nov 02 2012)

Crossrefs

See A213708 for the least inverse. A086876 gives the first differences. Also, a(n)=A213708(n)+A086876(n)-1. Cf. A071542, A179016, A218604, A218608.

Programs

  • PARI
    v=vectorsmall(10^3);v[1]=1;for(n=2,#v,v[n]=v[n-hammingweight(n)]+1); u=vector(solve(x=1,#v,x*log(x)/log(2)-#v)\1);for(i=1,#v,if(v[i]<=#u,u[v[i]]=i)); u
    
  • Scheme
    ;; With Antti Karttunen's intseq-library:
    (define A173601 (PARTIALSUMS 1 0 (compose-funs A086876 1+)))

Formula

a(n)/log_2(a(n)) < n < a(n) for n > 1.

Extensions

Changed the starting offset by prepending a(0)=0 (with the indexing of the rest of terms thus not changed) - Antti Karttunen, Nov 10 2012

A218604 a(n) = A173601(n) - A179016(n).

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 2, 2, 2, 0, 1, 0, 0, 1, 1, 2, 2, 2, 1, 2, 2, 3, 2, 3, 3, 5, 0, 1, 0, 0, 1, 1, 2, 2, 2, 1, 2, 2, 3, 2, 3, 3, 5, 1, 2, 2, 3, 2, 2, 0, 0, 0, 0, 1, 3, 2, 0, 1, 0, 0, 1, 1, 2, 2, 2, 1, 2, 2, 3, 2, 3, 3, 5, 1, 2
Offset: 0

Views

Author

Antti Karttunen, Nov 03 2012

Keywords

Comments

For all n, the following holds: A213708(n) <= A179016(n) <= A173601(n). This sequence gives the distance of the node n in the infinite trunk of beanstalk (A179016(n)) from the greater edge of the A086876(n) wide window which it at that point must pass through.
The increasing steps seem to be quite constrained in their magnitude, compared to the decreasing steps. (This depends on how the "tendrils",i.e. the finite side-trees on the other side of the infinite trunk grow and reach their tops).

Crossrefs

Positions of zeros: A218608, A218606.

Programs

Formula

a(n) = A086876(n) - A218603(n) - 1.

Extensions

Offset changed because of the changed offset of A179016 - Antti Karttunen, Nov 10 2012

A218603 a(n) = A179016(n) - A213708(n).

Original entry on oeis.org

0, 0, 1, 0, 1, 0, 1, 3, 0, 1, 3, 2, 3, 0, 1, 3, 2, 2, 1, 1, 1, 3, 0, 1, 3, 2, 2, 1, 1, 1, 2, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 3, 2, 2, 1, 1, 1, 2, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 3, 5, 3, 5, 4, 2, 3, 5, 0, 1, 3, 2, 2, 1, 1, 1, 2, 1, 1, 0, 1, 0, 0, 0, 0, 1
Offset: 0

Views

Author

Antti Karttunen, Nov 03 2012

Keywords

Comments

For all n, the following holds: A213708(n) <= A179016(n) <= A173601(n). This sequence gives the distance of the node n in the infinite trunk of beanstalk (A179016(n)) from the lesser edge of the A086876(n) wide window which it at that point must pass through.
The increasing steps seem to be quite constrained in their magnitude, compared to the decreasing steps. (This depends on how the "tendrils", i.e. the finite side-trees on the other side of the infinite trunk grow and reach their tops).

Crossrefs

Positions of zeros: A218607, A218605.

Programs

Formula

a(n) = A086876(n) - A218604(n) - 1.

Extensions

Offset changed because of the changed offset of A179016 - Antti Karttunen, Nov 10 2012

A255054 Run lengths in A255072.

Original entry on oeis.org

1, 2, 3, 1, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 5, 3, 4, 4, 4, 3, 1, 4, 4, 5, 3, 7, 5, 4, 4, 4, 5, 3, 4, 4, 4, 3, 1, 4, 4, 5, 3, 7, 5, 4, 7, 6, 4, 6, 5, 4, 4, 4, 5, 3, 7, 5, 4, 4, 4, 5, 3, 4, 4, 4, 3, 1, 4, 4, 5, 3, 7, 5, 4, 7, 6, 4, 6, 5, 4, 7, 6, 7, 8, 5, 6, 6, 4, 6, 5, 4, 4, 4, 5, 3, 7, 5, 4, 7, 6, 4, 6, 5, 4, 4, 4, 5, 3, 7, 5, 4, 4, 4, 5, 3, 4, 4, 4, 3, 1, 4, 4, 5, 3, 7, 5, 4, 7, 6, 4
Offset: 0

Views

Author

Antti Karttunen, Feb 14 2015

Keywords

Comments

Number of integers k which require exactly n steps to reach 0, when starting from k and iterating the map: x -> x - (number of runs in binary representation of x).

Examples

			0 is the only number reached from 0 in zero steps, thus a(0) = 1.
Both 1 and 2, in binary '1' and '10', when the number of runs (A005811) is subtracted from them, result zero: 1-1 = 2-2 = 0, and these are only such numbers where the zero is reached with one step, thus a(1) = 2.
For 3, 4 and 5, in binary '11', '100' and '101', subtracting the number of runs results 2 in all cases, thus two steps are requires to reach zero, and as there are no other such cases, a(2) = 3.
For 6, in binary '110', subtracting A005811 repeatedly gives -> 6-2 = 4, 4-2 = 2, 2-2 = 0, three steps in total, and as 6 is the only such number requiring three steps, a(3) = 1.
		

Crossrefs

Cf. A255059 (positions of odd terms), A255060 (positions of even terms), A255061 (apart from its second term 1, gives positions of ones here).
Analogous sequences: A086876, A219644, A219654.

Formula

a(n) = A255053(n+1) - A255053(n).
a(n) = 1 + A255055(n) - A255053(n).
Other identities. For all n >= 0:
a(n) = 1 + A255123(n) + A255124(n).

A219654 Run lengths in A219652.

Original entry on oeis.org

1, 1, 2, 2, 2, 4, 4, 4, 4, 2, 4, 4, 4, 4, 6, 4, 4, 4, 6, 6, 6, 6, 6, 6, 6, 6, 8, 4, 2, 4, 4, 4, 4, 6, 4, 4, 4, 6, 6, 6, 6, 6, 6, 6, 6, 8, 6, 8, 8, 6, 4, 4, 4, 6, 6, 6, 6, 6, 6, 6, 6, 8, 6, 8, 8, 6, 8, 10, 6, 6, 6, 6, 6, 6, 6, 8, 6, 8, 8, 6, 8, 10, 8, 10, 12, 6
Offset: 0

Views

Author

Antti Karttunen, Nov 25 2012

Keywords

Comments

a(n) tells from how many starting values one can end to 0 in n steps, with the iterative process described in A219652 (if going around in 0->0 loop is disallowed).

Crossrefs

a(n) = 1+(A219655(n)-A219653(n)). This sequence is based on Factorial number system: A007623. Analogous sequence for binary system: A086876, for Zeckendorf expansion: A219644. Cf. A219652, A219659, A219666.

Formula

a(n) = A219653(n+1)-A219653(n). (The first differences of A219653).

A219644 Run lengths in A219642.

Original entry on oeis.org

1, 1, 1, 2, 2, 1, 2, 3, 2, 3, 3, 2, 3, 3, 3, 2, 2, 3, 3, 3, 2, 3, 4, 1, 2, 3, 3, 3, 2, 3, 4, 3, 3, 3, 5, 2, 3, 3, 3, 2, 3, 4, 3, 3, 3, 5, 3, 4, 4, 4, 5, 1, 2, 3, 3, 3, 2, 3, 4, 3, 3, 3, 5, 3, 4, 4, 4, 5, 3, 3, 3, 5, 5, 3, 5, 5, 3, 2, 3, 3, 3, 2, 3, 4, 3, 3, 3
Offset: 0

Views

Author

Antti Karttunen, Nov 24 2012

Keywords

Comments

a(n) tells from how many starting values one can end to 0 in n steps, with the iterative process described in A219642 (if going around in 0->0 loop is disallowed).

Crossrefs

a(n) = 1+(A219645(n)-A219643(n)).
This sequence is based on Fibonacci number system (Zeckendorf expansion): A014417. Analogous sequence for binary system: A086876, for factorial number system: A219654.

Formula

a(n) = A219643(n+1)-A219643(n). (The first differences of A219643).
Showing 1-8 of 8 results.