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 15 results. Next

A262510 Parent nodes of nonzero terms of A262509: a(n) = A049820(A262509(n)).

Original entry on oeis.org

119139, 119143, 119147, 119213, 119225, 119919, 119921, 120073, 120091, 120095, 120097, 120277, 120291, 120347, 120391, 120703, 120739, 120883, 120891, 120895, 120915, 120917, 121435, 121543, 121819, 122075, 122257, 122261, 122271, 122273, 122809, 122953, 123197, 123205, 123219, 123231, 123251, 123749, 24660527, 24660543, 24662309, 24662321, 24663755, 24664989, 24665019, 24665347, 24665929, 24665977, 24669139, 24669833
Offset: 1

Views

Author

Antti Karttunen, Sep 25 2015

Keywords

Comments

These numbers are one step nearer (than those of A262509) to the root (zero) of the tree where the parent-child relation is given by A049820(child) = parent. Like the terms of A262509, they are also vertices in the infinite trunk of that tree. Cf. A259934.

Crossrefs

Subsequence of A259934 and A262511.
Also a subsequence of A262517 (provided all terms are odd).

Programs

Formula

a(n) = A049820(A262509(n)).
a(n) = A259934(A262508(n)-1).

A263081 a(n) = largest k for which A155043(k) < A262508(n); a(n) = A262509(n) + A262909(n).

Original entry on oeis.org

124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 124340, 24684000, 24684000, 24684000, 24684000, 24684000, 24684000, 24684000
Offset: 1

Views

Author

Antti Karttunen, Oct 09 2015

Keywords

Comments

a(n) = largest k for which A155043(k) < A155043(A262509(n)).
If a(n) > A262509(n) then it must be a leaf (see comments in A262909 for why). Particularly, we have A045765(40722) = 124340, A045765(8191770) = 24684000.
Terms of sequence (together with the corresponding values in A262508) give particularly clean values for the boundaries that are used for example in the C++-program which computes A262896.

Crossrefs

Programs

Formula

a(n) = A263077(A262509(n)).
a(n) = A262509(n) + A262909(n).

A262909 a(n) = greatest k such that A155043(k+A262509(n)) < A155043(A262509(n)).

Original entry on oeis.org

5197, 5193, 5177, 5115, 5113, 4419, 4417, 4259, 4245, 4243, 4239, 4059, 4047, 3991, 3941, 3633, 3593, 3449, 3445, 3437, 3423, 3421, 2897, 2789, 2517, 2261, 2079, 2077, 2067, 2063, 1527, 1379, 1135, 1127, 1117, 1103, 1083, 575, 23457, 23451, 21689, 21671, 20241, 19003, 18977, 18649, 18063, 18019, 14853, 14159, 13659, 12707, 11681, 10993, 10991, 10297, 10281, 9151, 9149, 9145, 9111, 8897, 8535, 8147, 6835, 6813, 5539, 5537
Offset: 1

Views

Author

Antti Karttunen, Oct 09 2015

Keywords

Comments

a(n) = largest k such that A155043(k+A262509(n)) < A262508(n).
There might occur also negative terms, but no zeros.
For all terms a(n) > 0, a(n)+A262509(n) = A263081(n) is by necessity one of the leaves (A045765) in the tree generated by edge-relation A049820(child) = parent. See also comments in A262908.

Crossrefs

Formula

a(n) = A263078(A262509(n)).
a(n) = A263081(n) - A262509(n).
Other identities. For all n >= 1:
a(n) >= A262908(n).

A262908 a(n) = largest k such that A049820(k + A262509(n)) <= A262509(n).

Original entry on oeis.org

53, 49, 69, 55, 53, 31, 47, 39, 25, 35, 31, 39, 37, 51, 33, 43, 33, 69, 65, 57, 43, 41, 57, 49, 33, 33, 43, 41, 37, 33, 37, 39, 35, 27, 41, 27, 43, 75, 177, 171, 173, 155, 45, 133, 107, 121, 111, 139, 78, 119, 123, 47, 65, 79, 77, 97, 81, 151, 149, 145, 111, 197, 375, 71, 59, 81, 259, 257
Offset: 1

Views

Author

Antti Karttunen, Oct 08 2015

Keywords

Comments

For all nonzero terms a(n), A263083(n) = a(n) + A262509(n) and A155043(A263083(n)) < A155043(A262509(n)) because at each A262509(n) the "distance to zero", A155043 obtains a unique value A262508(n), thus no A049820-iteration trajectory starting from any k larger than A262509(n) and using a greater or equal number of steps to reach zero may bypass A262509(n) [i.e., without going through A262509(n)], because then A262508(n) would not be unique anymore. See also comments in A262909.

Crossrefs

Programs

Formula

Other identities. For all n >= 1:
a(n) <= A262909(n).

A263083 a(n) = largest k such that A049820(k) <= A262509(n).

Original entry on oeis.org

119196, 119196, 119232, 119280, 119280, 119952, 119970, 120120, 120120, 120132, 120132, 120320, 120330, 120400, 120432, 120750, 120780, 120960, 120960, 120960, 120960, 120960, 121500, 121600, 121856, 122112, 122304, 122304, 122310, 122310, 122850, 123000, 123240, 123240, 123264, 123264, 123300, 123840, 24660720, 24660720, 24662484, 24662484, 24663804, 24665130, 24665130, 24665472, 24666048
Offset: 1

Views

Author

Antti Karttunen, Oct 11 2015

Keywords

Comments

When a(n) > A262509(n), then a(n) is the "farthest immediate bypasser" of A262509(n) [the n-th "constriction point" in the tree generated by edge-relation A049820(child) = parent], bypassing it in the single A049820-step. In contrast, A263081(n) gives the farthest node (by necessity a leaf-node) which bypasses A262509(n) in multiple A049820-steps.
Sequence b(n) = A155043(A262509(n)) - A155043(a(n)) = A262508(n) - A155043(a(n)) gives the following terms: 395, 396, 354, 363, 364, 399, 390, 419, 422, 420, 421, 442, 430, 437, 460, 456, 498, 511, 512, 513, 515, 516, 506, 509, 533, 543, 564, 565, 557, 558, 591, 608, 612, 613, 614, 617, 617, 655, 3240, 3241, 3236, 3239, 3291, 3346, 3350, 3373, 3451, 3455, 2, 3598, 3637, 3605, 3674, 3688, 3689, 3748, 3749, 3792, 3793, 3794, 3800, 3803, 3858, 3843, 3902, 3947, 3985, 3986, ... which tells how many steps shorter trajectory there is to zero (using A049820) for those bypassers than for the constriction points themselves.

Crossrefs

Formula

a(n) = A262509(n)+A262908(n).

A259934 Infinite sequence starting with a(0)=0 such that A049820(a(k)) = a(k-1) for all k>=1, where A049820(n) = n - (number of divisors of n).

Original entry on oeis.org

0, 2, 6, 12, 18, 22, 30, 34, 42, 46, 54, 58, 62, 70, 78, 90, 94, 102, 106, 114, 118, 121, 125, 129, 144, 152, 162, 166, 174, 182, 190, 194, 210, 214, 222, 230, 236, 242, 250, 254, 270, 274, 282, 294, 298, 302, 310, 314, 330, 342, 346, 354, 358, 366, 374, 390, 394, 402, 410, 418, 426, 434, 442, 446, 462, 466, 474, 486, 494, 510, 522, 530, 546, 558, 562, 566, 574, 582, 590
Offset: 0

Views

Author

Max Alekseyev, Jul 09 2015

Keywords

Comments

Equivalently, satisfies the property: A000005(a(n)) = a(n)-a(n-1). The first differences a(n)-a(n-1) are given in A259935.
V. S. Guba (2015) proved that such an infinite sequence exists. Numerical evidence suggests that it may also be unique -- is it? All terms below 10^10 are defined uniquely.
If the current definition does not uniquely define the sequence, the "lexicographically earliest" condition may be added to make the sequence well-defined.
From Vladimir Shevelev, Jul 21 2015: (Start)
If a(k), a(k+1), a(k+2) is an arithmetic progression, then a(k+1) is in A175304.
Indeed, by the definition of this sequence, a(n)-a(n-1) = d(a(n)), for all n>=1, where d(n) = A000005(n). Hence, have a(k+1) - a(k) = a(k+2) - a(k+1) = d(a(k+1)) = d(a(k+2)). So a(k+1) + d(a(k+2)) = a(k+2) and a(k+1) + d(a(k+1)) = a(k+2).
Therefore, d(a(k+1) + d(a(k+1))) = d(a(k+2))= d(a(k+1)), i.e., a(k+1) is in A175304. Thus, if there are infinitely many pairs of the same consecutive terms of A259935, then A175304 is infinite (see there my conjecture). (End)
From Antti Karttunen, Nov 27 2015: (Start)
If multiple apparently infinite branches would occur at some point of computing, then even if the "lexicographically earliest" condition were then added to the definition, it would not help us much (when computing the sequence), as we would still not know which of the said branches were truly infinite. [See also Max Alekseyev's latter Jul 9 2015 posting on SeqFan-list, where he notes the same thing.] Note that many of the derived sequences tacitly assume that the uniqueness-conjecture is true. See also comments at A262693 and A262896.
One sufficient (but not a necessary) condition for the uniqueness of this sequence is that the sequence A262509 has infinite number of terms. Please see further comments there.
The graph of sequence exhibits two markedly different slopes, depending on whether it is on the "fast lane" of A049820 (even numbers) or the "slow lane" [odd numbers, for example when traversing the 1356 odd terms from 123871 to 113569 at range a(9859) .. a(8504)]. See A263086/A263085 for the "average cumulative speed difference" between the lanes. In general, slow and fast lane stay separate, except when they terminate into one of the squares (A262514) that work as "exchange ramps", forcing the parity (and thus the speed) to change. In average, the odd squares are slightly better than the even squares in attracting lanes going towards smaller numbers (compare A263253 to A263252). The cumulative effect of this bias is that the odd terms are much rarer in this sequence than the even terms (compare A263278 to A262516).
(End)

Crossrefs

Cf. A000005, A049820, A060990, A259935 (first differences).
Topmost row of A263255. Cf. also irregular tables A263267 & A263265 and array A262898.
Cf. A262693 (characteristic function).
Cf. A155043, A262694, A262904 (left inverses).
Cf. A262514 (squares present), A263276 (their positions), A263277.
Cf. A262517 (odd terms).
Cf. A262509, A262510, A262897 (other subsequences).
Cf. also A175304, A260257, A262680.
Cf. also A262679, A262896 (see the C++ program there).
No common terms with A045765 or A262903.
Positions of zeros in A262522, A262695, A262696, A262697, A263254.
Various metrics concerning finite side-trees: A262888, A262889, A262890.
Cf. also A262891, A262892 and A262895 (cf. its graph).
Cf. A260084, A260124 (variants).
Cf. also A179016 (a similar "beanstalk trunk sequence" but with more tractable and regular behavior).

Programs

Formula

From Antti Karttunen, Nov 27 2015: (Start)
Other identities and observations. For all n >= 0:
a(n) = A262679(A262896(n)).
A155043(a(n)) = A262694(a(n)) = A262904(a(n)) = n.
A261089(n) <= a(n) <= A262503(n). [A261103 and A262506 give the distances of a(n) to these bounds.]
(End)

A155043 a(0)=0; for n >= 1, a(n) = 1 + a(n-d(n)), where d(n) is the number of divisors of n (A000005).

Original entry on oeis.org

0, 1, 1, 2, 2, 3, 2, 4, 3, 3, 3, 4, 3, 5, 4, 5, 5, 6, 4, 7, 5, 7, 5, 8, 6, 6, 6, 9, 6, 10, 6, 11, 7, 11, 7, 12, 10, 13, 8, 13, 8, 14, 8, 15, 9, 14, 9, 15, 9, 10, 10, 16, 10, 17, 10, 17, 10, 18, 11, 19, 10, 20, 12, 19, 19, 21, 12, 22, 13, 22, 13, 23, 11, 24, 14, 23, 14, 25, 14, 26, 14, 15, 15
Offset: 0

Views

Author

Ctibor O. Zizka, Jan 19 2009

Keywords

Comments

From Antti Karttunen, Sep 23 2015: (Start)
Number of steps needed to reach zero when starting from k = n and repeatedly applying the map that replaces k by k - d(k), where d(k) is the number of divisors of k (A000005).
The original name was: a(n) = 1 + a(n-sigma_0(n)), a(0)=0, sigma_0(n) number of divisors of n.
(End)

Crossrefs

Sum of A262676 and A262677.
Cf. A261089 (positions of records, i.e., the first occurrence of n), A262503 (the last occurrence), A262505 (their difference), A263082.
Cf. A262518, A262519 (bisections, compare their scatter plots), A262521 (where the latter is less than the former).
Cf. A261085 (computed for primes), A261088 (for squares).
Cf. A262507 (number of times n occurs in total), A262508 (values occurring only once), A262509 (their indices).
Cf. A263265 (nonnegative integers arranged by the magnitude of a(n)).
Cf. also A004001, A005185.
Cf. A264893 (first differences), A264898 (where repeating values occur).

Programs

  • Haskell
    import Data.List (genericIndex)
    a155043 n = genericIndex a155043_list n
    a155043_list = 0 : map ((+ 1) . a155043) a049820_list
    -- Reinhard Zumkeller, Nov 27 2015
    
  • Maple
    with(numtheory): a := proc (n) if n = 0 then 0 else 1+a(n-tau(n)) end if end proc: seq(a(n), n = 0 .. 90); # Emeric Deutsch, Jan 26 2009
  • Mathematica
    a[0] = 0; a[n_] := a[n] = 1 + a[n - DivisorSigma[0, n]]; Table[a@n, {n, 0, 82}] (* Michael De Vlieger, Sep 24 2015 *)
  • PARI
    uplim = 110880; \\ = A002182(30).
    v155043 = vector(uplim);
    v155043[1] = 1; v155043[2] = 1;
    for(i=3, uplim, v155043[i] = 1 + v155043[i-numdiv(i)]);
    A155043 = n -> if(!n,n,v155043[n]);
    for(n=0, uplim, write("b155043.txt", n, " ", A155043(n)));
    \\ Antti Karttunen, Sep 23 2015
    
  • Python
    from sympy import divisor_count as d
    def a(n): return 0 if n==0 else 1 + a(n - d(n))
    print([a(n) for n in range(101)]) # Indranil Ghosh, Jun 03 2017
  • Scheme
    (definec (A155043 n) (if (zero? n) n (+ 1 (A155043 (A049820 n)))))
    ;; Antti Karttunen, Sep 23 2015
    

Formula

From Antti Karttunen, Sep 23 2015 & Nov 26 2015: (Start)
a(0) = 0; for n >= 1, a(n) = 1 + a(A049820(n)).
a(n) = A262676(n) + A262677(n). - Oct 03 2015.
Other identities. For all n >= 0:
a(A259934(n)) = a(A261089(n)) = a(A262503(n)) = n. [The sequence works as a left inverse for sequences A259934, A261089 and A262503.]
a(n) = A262904(n) + A263254(n).
a(n) = A263270(A263266(n)).
A263265(a(n), A263259(n)) = n.
(End)

Extensions

Extended by Emeric Deutsch, Jan 26 2009
Name edited by Antti Karttunen, Sep 23 2015

A262508 Numbers that occur only once in A155043; positions of zeros in A262505, ones in A262507.

Original entry on oeis.org

0, 9236, 9237, 9238, 9247, 9248, 9330, 9331, 9353, 9356, 9357, 9358, 9385, 9388, 9399, 9407, 9446, 9453, 9476, 9477, 9478, 9480, 9481, 9547, 9561, 9590, 9626, 9652, 9653, 9655, 9656, 9722, 9743, 9775, 9776, 9778, 9781, 9786, 9844, 1308289, 1308290, 1308465, 1308468, 1308592, 1308713, 1308717, 1308750, 1308809, 1308815, 1309104, 1309162, 1309214, 1309299, 1309397, 1309464, 1309465, 1309536, 1309537, 1309640, 1309641, 1309642, 1309648, 1309675, 1309714, 1309751, 1309879, 1309883, 1310010, 1310011
Offset: 0

Views

Author

Antti Karttunen, Sep 25 2015

Keywords

Comments

Numbers n for which there exists exactly one natural number x from which one can reach zero in n steps by setting first k = x and then repeatedly applying the map where k is replaced with k - A000005(k). See A262509 for the corresponding x's and implications concerning A259934.
Starting offset is zero, because a(0) = 0 is a special case in this sequence.

Crossrefs

Programs

  • PARI
    \\ See the Pari-program given in A262509, which also computes the terms of this sequence at the same time.

A262680 Number of squares encountered before zero is reached when iterating A049820 starting from n: a(0) = 0 and for n >= 1, a(n) = A010052(n) + a(A049820(n)).

Original entry on oeis.org

0, 1, 0, 1, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1
Offset: 0

Views

Author

Antti Karttunen, Oct 03 2015

Keywords

Comments

Number of perfect squares (A000290) encountered before zero is reached when starting from k = n and repeatedly applying the map that replaces k by k - d(k), where d(k) is the number of divisors of k (A000005). This count includes n itself if it is a square, but excludes the final zero.
Also number of times the parity (of numbers encountered) changes until zero is reached when iterating A049820. This count includes also the last parity change 1 - d(1) -> 0 if coming to zero through 1.
There is a lower bound for this sequence that grows without limit if and only if either (1) A259934 is indeed the unique sequence (satisfying its given condition) and it contains an infinite number of squares (see A262514), or (2) more generally, if each one of all (hypothetically multiple) infinite branches of the tree (defined by parent-child relation A049820(child) = parent) contains an infinite number of squares. See also comments in A262509.

Examples

			For n=1, we subtract 1 - A000005(1) = 0, thus we reach zero in one step, and the starting value 1 is a square, thus a(1) = 1. Also, the parity changes once, from odd to even as we go from 1 to 0.
For n=24, when we start repeatedly subtracting the number of divisors (A000005), we obtain the following numbers: 24 - A000005(24) = 24 - 8 = 16, 16 - A000005(16) = 16 - 5 = 11, 11 - 2 = 9, 9 - 3 = 6, 6 - 4 = 2, 2 - 2 = 0. Of these numbers, 16 and 9 are squares larger than zero, thus a(24)=2. Also, we see that the parity changes twice: from even to odd at 16 and then back from odd to even at 9.
		

Crossrefs

Bisections: A262681, A262682.
Cf. A262687 (positions of records).

A262896 If n is in A262892, a(n) = A259934(n), otherwise the largest term in A045765 from which A259934(n) can be reached by iterating A049820, without visiting any other (larger) term of A259934.

Original entry on oeis.org

8, 2, 79, 12, 18, 40, 30, 140, 42, 52, 54, 66, 68, 123, 98, 90, 94, 116, 106, 126, 164, 121, 369, 133, 156, 168, 180, 184, 280, 229, 190, 194, 210, 218, 252, 246, 236, 242, 272, 254, 312, 324, 300, 364, 298, 302, 372, 356, 334, 342, 346, 354, 439, 366, 374, 390, 672, 414, 410, 438, 426, 460, 442, 452, 470, 466, 564, 496, 494, 524, 627, 530, 546, 558, 562, 566, 574, 592, 859, 660, 606, 642, 708, 650
Offset: 0

Views

Author

Antti Karttunen, Oct 06 2015

Keywords

Comments

a(n) is the largest leaf-node among the finite subtrees branching from node n in the infinite trunk (A259934) of the tree generated by edge-relation A049820(child) = parent, and A259934(n) itself if it is one of the nonbranching nodes (A262897).
Note that without (so far undetected) regularity in A262509, there is no a priori upper bound for the value of a(n), and for some n this might not even be finite, if it happens that contrary to its conjectured nature, A259934 is not the unique infinite component, but just the lexicographically earliest instance of multiple infinite branches of the tree. In that case we might consider this sequence to be well-defined only up to the least such node branching to multiple infinite components, or alternatively, we might mark the nonfinite values at those points with -1.

Crossrefs

Programs

  • Scheme
    (define (A262896 n) (let ((t (A259934 n))) (let loop ((m t) (k (A262686 t))) (cond ((<= k t) m) ((= t (A049820 k)) (loop (max m (A262522 k)) (- k 1))) (else (loop m (- k 1)))))))

Formula

a(n) = max(A259934(n), Max_{k = A082284(A259934(n)) .. A262686(A259934(n))} [A049820(k) = A259934(n)] * A262522(k)).
(Here [ ] stands for Iverson bracket, giving as its result 1 only when A049820(k) = A259934(n), and 0 otherwise).
Other identities. For all n >= 0:
A262904(a(n)) = n. [A262904 works as a left inverse for this sequence.]
A259934(n) = A262679(a(n)).
For all n >= 1:
a(A262892(n)) = A259934(A262892(n)) = A262897(n).
Showing 1-10 of 15 results. Next