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

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)

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)).

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).

A262516 a(n) = length of n-th run of odd terms in A259934.

Original entry on oeis.org

3, 1356, 149, 291, 8567, 4090, 59748, 95590
Offset: 1

Views

Author

Antti Karttunen, Sep 26 2015

Keywords

Comments

Terms were computed from the data file of A259934 provided by Max Alekseyev, which contained terms up to A259934(397420670) = 9999999974.

Crossrefs

A263098 a(n) = Max( tau(k) : k=1,2,3,...,n^2 ) where tau(k) = A000005(k) is the number of divisors of k.

Original entry on oeis.org

1, 3, 4, 6, 8, 9, 10, 12, 12, 12, 16, 16, 16, 18, 18, 20, 20, 20, 24, 24, 24, 24, 24, 24, 24, 24, 30, 30, 32, 32, 32, 32, 32, 32, 32, 36, 36, 36, 36, 36, 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 60, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 72
Offset: 1

Views

Author

Antti Karttunen, Oct 10 2015

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Max[DivisorSigma[0, #] & /@ Range[n^2]], {n, 101}] (* Michael De Vlieger, Oct 11 2015 *)
  • PARI
    A070319(n, m=1, s=2)={for(k=s, n, mM. F. Hasler, Sep 12 2012
    A263098 = n -> A070319(n^2); \\ Slow without memoization.
    for(n=1, 2080, write("b263098.txt", n, " ", A263098(n)));
    
  • Scheme
    (define (A263098 n) (A070319 (A000290 n)))

Formula

a(n) = A070319(A000290(n)).

A262517 Odd terms in A259934.

Original entry on oeis.org

121, 125, 129, 113569, 113573, 113589, 113593, 113601, 113625, 113629, 113645, 113647, 113651, 113659, 113663, 113667, 113679, 113715, 113717, 113729, 113731, 113739, 113743, 113747, 113749, 113757, 113765, 113781, 113783, 113791, 113799, 113815, 113827, 113831, 113839, 113847, 113851, 113859, 113867, 113871, 113877, 113881, 113885, 113889, 113925, 113931, 113935, 113943, 113967, 113969, 113973, 113981, 113983, 113987, 113991
Offset: 1

Views

Author

Antti Karttunen, Sep 26 2015

Keywords

Comments

Odd terms of A259934 appear in separate runs, where the first term of each run is always an odd square, like 121 and 113569 are. See A262514 for the explanation.

Crossrefs

Cf. A262509, A262510 (subsequences?).

A263276 Positions of squares in A259934.

Original entry on oeis.org

0, 21, 24, 8504, 9860, 28022, 28171, 106666, 106957, 1301664, 1310231, 2736338, 2740428, 8770047, 8829795, 333863896, 333959486
Offset: 0

Views

Author

Antti Karttunen, Nov 08 2015

Keywords

Comments

Numbers n for which A259934(n) is a perfect square. Indexing begins from zero, because a(0) = 0 is a special case.
Terms were computed from the data file of A259934 provided by Max Alekseyev, which contained terms up to A259934(397420670) = 9999999974.

Crossrefs

Cf. A263277 (first differences).

Programs

Formula

a(n) = A262694(A262514(n)).

A262515 Natural numbers whose squares are present in A259934.

Original entry on oeis.org

0, 11, 12, 337, 352, 631, 632, 1307, 1308, 4959, 4968, 7341, 7344, 13567, 13592, 91313, 91320, 686265, 686274, 5086881, 5086888, 12998759, 12998768, 17434615, 17434644, 17623923, 17623928, 42146393, 42146394, 52705447, 52705464
Offset: 0

Views

Author

Antti Karttunen, Sep 26 2015

Keywords

Comments

Every other term is even and every other odd. See comments at A262514.
a(31) > 10^8.

Crossrefs

Formula

a(n) = A000196(A262514(n)).

Extensions

a(17)-a(30) from Hiroaki Yamanouchi, Oct 07 2015

A262687 a(n) = index of first n in A262680; positions of records in A262680.

Original entry on oeis.org

0, 1, 4, 169, 324, 1521, 125316, 126025, 425104, 1713481, 1716100, 4959529, 24760576
Offset: 0

Views

Author

Antti Karttunen, Oct 03 2015

Keywords

Comments

All terms are squares (A262688 gives the square roots).
The even and odd terms alternate.

Crossrefs

Cf. A262688 (square roots of these terms).

Programs

  • PARI
    allocatemem((2^31)+(2^30));
    uplim = 2^25;
    v262680 = vector(uplim);
    v262680[1] = 1; v262680[2] = 0;
    for(i=3, uplim, v262680[i] = issquare(i) + v262680[i-numdiv(i)];
    if(!(i%65536),print1(i,", ")););
    A262680 = n -> if(!n,n,v262680[n]);
    n=0; k=0; while(n*n <= uplim, if(A262680(n*n)==k, write("b262687.txt", k, " ", n*n); k++); n++;);
    
  • Scheme
    ;; With Antti Karttunen's IntSeq-library.
    (define A262687 (RECORD-POS 0 0 A262680))

A263095 Squares in A045765; numbers n^2 such that there is no such k for which k - d(k) = n^2, where d(k) is the number of divisors of k (A000005).

Original entry on oeis.org

25, 36, 49, 64, 100, 196, 256, 324, 400, 484, 676, 729, 784, 1156, 1225, 1369, 2116, 2209, 2500, 2916, 3136, 3364, 3481, 3600, 3844, 4489, 5329, 6084, 6724, 7225, 7921, 8100, 8836, 9025, 9604, 10000, 10609, 10816, 11236, 12100, 12996, 13456, 13924, 14884, 15376, 15625, 15876, 16129, 16384, 16900, 18225, 19600, 19881, 20164, 21904, 22500, 24025, 24964, 25921, 26896
Offset: 1

Views

Author

Antti Karttunen, Oct 10 2015

Keywords

Comments

Some of the terms are shared with A262687, but none with A262514.

Crossrefs

Cf. A263093 (gives the square roots).
Intersection of A000290 and A045765.
Cf. also A263091.

Programs

  • Mathematica
    lim = 40000; Take[Select[Complement[Range@ lim, Sort@ DeleteDuplicates@ Table[n - DivisorSigma[0, n], {n, lim}]], IntegerQ@ Sqrt@ # &], 60] (* Michael De Vlieger, Oct 13 2015 *)
  • PARI
    \\ See code in A263093.
    
  • Scheme
    ;; With Antti Karttunen's IntSeq-library.
    (define A263095 (MATCHING-POS 1 1 (lambda (n) (and (= 1 (A010052 n)) (zero? (A060990 n))))))
Showing 1-10 of 14 results. Next