A053238 -id:A053238 - cp's OEIS frontend

A053240 n for which values not equal to 2 occur in the expansion of A053238.

5, 20, 21, 29, 34, 49, 50, 56, 57, 65, 70, 79, 80, 94, 99, 108, 109, 123, 132, 133, 145, 146, 154, 155, 170, 171, 177, 178, 198, 200, 201, 227, 230, 231, 239, 244, 253, 254, 259, 260, 274, 277, 278, 280, 289, 290, 304, 307, 308, 310, 327, 332, 340, 341, 347

Offset: 1

Asher Auel, Jan 10 2000

nonn

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A000203, A053226, A053238, A053239, A053241 (complement), A053242, A053243, A053244, A053245.

import Data.List (findIndices)
a053240 n = a053240_list !! (n-1)
a053240_list = map (+ 1) $ findIndices (/= 2) a053238_list
-- Reinhard Zumkeller, Oct 16 2011

with(numtheory): f := [seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..5000)];
seq( `if`(f[i+1] - f[i] <> 2,i,print( )), i=1..1000);

A053241 Numbers n such that A053238(n) = 2.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 25, 26, 27, 28, 30, 31, 32, 33, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 51, 52, 53, 54, 55, 58, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 78, 81, 82, 83, 84, 85

Offset: 1

Asher Auel, Jan 10 2000

nonn

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A000203, A053226, A053238, A053239, A053240 (complement), A053242, A053243, A053244, A053245.

import Data.List (elemIndices)
a053241 n = a053241_list !! (n-1)
a053241_list = map (+ 1) $ elemIndices 2 a053238_list
-- Reinhard Zumkeller, Oct 16 2011

with(numtheory): f := [seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..5000)];
seq( `if`(f[i+1] - f[i] = 2,i,print( )), i=1..100);

A053242 Numbers n such that A053238(n) = 1.

Original entry on oeis.org

20, 21, 49, 50, 56, 57, 79, 80, 108, 109, 132, 133, 145, 146, 155, 170, 171, 177, 178, 201, 230, 231, 253, 254, 260, 277, 278, 289, 290, 307, 308, 341, 347, 348, 376, 382, 383, 405, 406, 412, 413, 424, 425, 437, 438, 467, 495, 496, 548, 549, 555, 570, 585

Offset: 1

Asher Auel, Jan 10 2000

nonn

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A000203, A053226, A053238, A053239, A053240, A053241, A053243, A053244, A053245 (subsequence).

import Data.List (elemIndices)
a053242 n = a053242_list !! (n-1)
a053242_list = map (+ 1) $ elemIndices 1 a053238_list
-- Reinhard Zumkeller, Oct 16 2011

with(numtheory): f := [seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..5000)];
seq( `if`(f[i+1] - f[i] = 2,i,print( )), i=1..1000);

A053245 Numbers k such that both A053238(k) and A053238(k+1) = 1.

Original entry on oeis.org

20, 49, 56, 79, 108, 132, 145, 170, 177, 230, 253, 277, 289, 307, 347, 382, 405, 412, 424, 437, 495, 548, 585, 592, 633, 645, 704, 734, 752, 764, 789, 802, 841, 854, 930, 943, 967, 974, 1005, 1012, 1053, 1066, 1130, 1154, 1179, 1186, 1216, 1223, 1264

Offset: 1

Asher Auel, Jan 10 2000

nonn

Pairs of consecutive 1's occur uncommonly often in A053238.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A000203, A053226, A053238, A053239, A053240, A053241, A053242, A053243, A053244.

a053245 n = a053245_list !! (n-1)
a053245_list = f a053242_list where
   f (x:x':xs) | x' == x+1 = x : f xs
               | otherwise = f (x':xs)
-- Reinhard Zumkeller, Oct 16 2011

with(numtheory): f := [seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..5000)];
seq(`if`((f[i+2]-f[i+1]=1) and (f[i+1]-f[i]=1),i,print( )), i=1..1500);

A053243 Numbers n such that A053238(n) = 3.

Original entry on oeis.org

154, 200, 259, 340, 375, 466, 554, 569, 673, 688, 779, 869, 884, 912, 989, 1095, 1232, 1276, 1394, 1409, 1493, 1513, 1630, 1645, 1719, 1805, 1819, 1923, 2027, 2042, 2117, 2153, 2162, 2208, 2240, 2345, 2480, 2542, 2662, 2706, 2850, 2871, 2886, 3003, 3078

Offset: 1

Asher Auel, Jan 10 2000

nonn

Cf. A000203, A053226, A053238, A053239, A053240, A053241, A053242, A053244, A053245.

with(numtheory): f := [seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..5000)];
seq( `if`(f[i+1] - f[i] = 3,i,print( )), i=1..1000);

A053244 Numbers n such that A053238(n) = 4.

Original entry on oeis.org

5, 29, 34, 65, 70, 94, 99, 123, 198, 227, 239, 244, 274, 280, 304, 310, 327, 332, 362, 373, 391, 402, 421, 452, 481, 492, 510, 539, 601, 612, 636, 654, 659, 719, 749, 761, 811, 816, 821, 832, 899, 904, 927, 958, 1033, 1050, 1081, 1110, 1115, 1139, 1201

Offset: 1

Asher Auel, Jan 10 2000

nonn

Cf. A000203, A053226, A053238, A053239, A053240, A053241, A053242, A053243, A053245.

with(numtheory): f := [seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..8000)];
seq( `if`(f[i+1] - f[i] = 4,i,print( )), i=1..3000);

A053226 Numbers k for which sigma(k) > sigma(k+1).

Original entry on oeis.org

4, 6, 8, 10, 12, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 45, 46, 48, 50, 52, 54, 56, 58, 60, 64, 66, 68, 70, 72, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 105, 106, 108, 110, 112, 114, 116, 117, 118, 120, 122, 124, 126, 128, 130

Offset: 1

Asher Auel, Jan 06 2000

nonn

The asymptotic density of this sequence is 1/2 (Erdős, 1936). - Amiram Eldar, Mar 19 2021

T. D. Noe, Table of n, a(n) for n = 1..1000
Paul Erdős, On a problem of Chowla and some related problems, Mathematical Proceedings of the Cambridge Philosophical Society, Vol. 32, No. 4 (1936), pp. 530-540; alternative link.

Cf. A000203, A053222, A053224, A053238.

import Data.List (findIndices)
a053226 n = a053226_list !! (n-1)
a053226_list = map (+ 1) $ findIndices (< 0) a053222_list
-- Reinhard Zumkeller, Oct 16 2011

with(numtheory): seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..139);

Select[Range[150], DivisorSigma[1, #] > DivisorSigma[1, # + 1] &] (* Carl Najafi, Aug 16 2011 *)

is(n)=sigma(n)>sigma(n+1) \\ Charles R Greathouse IV, Mar 09 2014

A053230 First differences between numbers k for which sigma(k) < sigma(k+1).

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2

Offset: 1

Asher Auel, Jan 10 2000

It seems that the expansion consists of only {1,2,3,4}.
The first exception is a(10010491) = 6, corresponding to the gap from 20021153 to 20021159. - Charles R Greathouse IV, Mar 09 2014
The asymptotic mean of this sequence is 2 (Erdős, 1936). - Amiram Eldar, Mar 19 2021

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Paul Erdős, On a problem of Chowla and some related problems, Mathematical Proceedings of the Cambridge Philosophical Society, Vol. 32, No. 4 (1936), pp. 530-540; alternative link.

Cf. A000203, A053224, A053231, A053232, A053233, A053234, A053235, A053236, A053237, A053238.

a053230 n = a053230_list !! (n-1)
a053230_list = zipWith (-) (tail a053224_list) a053224_list
-- Reinhard Zumkeller, May 07 2012

with(numtheory): f := [seq( `if`((sigma(i+1) > sigma(i)),i,print( )), i=1..5000)];
seq( f[i+1] - f[i], i=1..2000);

Differences[Select[Range[250],DivisorSigma[1,#]Harvey P. Dale, Apr 30 2011 *)

last=ls=1; for(n=2,200,ns=sigma(n+1); if(ls>=ns,ls=ns; next); ls=ns; print1(n-last", ");last=n) \\ Charles R Greathouse IV, Mar 09 2014

a(n) = A053224(n+1) - A053224(n).

A053239 First differences between n for which sigma(n) > sigma(n+1), which are not 2.

Original entry on oeis.org

4, 1, 1, 4, 4, 1, 1, 1, 1, 4, 4, 1, 1, 4, 4, 1, 1, 4, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 4, 3, 1, 4, 1, 1, 4, 4, 1, 1, 3, 1, 4, 1, 1, 4, 1, 1, 4, 1, 1, 4, 4, 4, 3, 1, 1, 1, 4, 4, 3, 1, 1, 1, 4, 4, 1, 1, 1, 1, 4, 1, 1, 1, 1, 4, 3, 1, 4, 4, 1, 1, 4, 4, 1, 1, 3, 1, 3, 1, 1, 1, 1, 1, 4, 4, 1, 1, 4, 1, 1, 4, 4, 3, 1, 3, 1

Offset: 1

Asher Auel, Jan 10 2000

nonn

Cf. A000203, A053226, A053238, A053240, A053241, A053242, A053243, A053244, A053245.

with(numtheory): f := [seq( `if`((sigma(i) > sigma(i+1)),i,print( )), i=1..5000)];
seq( `if`(f[i+1] - f[i] <> 2,f[i+1] - f[i],print( )), i=1..2000);

The expansion of A053238 excluding 2's. a(n) = A053238(A053240(n)).

cp's OEIS Frontend

A053240 n for which values not equal to 2 occur in the expansion of A053238.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Maple

A053241 Numbers n such that A053238(n) = 2.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Maple

A053242 Numbers n such that A053238(n) = 1.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Maple

A053245 Numbers k such that both A053238(k) and A053238(k+1) = 1.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

A053243 Numbers n such that A053238(n) = 3.

Views

Author

Keywords

Crossrefs

Programs

Maple

A053244 Numbers n such that A053238(n) = 4.

Views

Author

Keywords

Crossrefs

Programs

Maple

A053226 Numbers k for which sigma(k) > sigma(k+1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

A053230 First differences between numbers k for which sigma(k) < sigma(k+1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Formula

A053239 First differences between n for which sigma(n) > sigma(n+1), which are not 2.

Views

Author