A277571 -id:A277571 - cp's OEIS frontend

A277568 Numbers k such that k/6^m == 2 (mod 6), where 6^m is the greatest power of 6 that divides k.

2, 8, 12, 14, 20, 26, 32, 38, 44, 48, 50, 56, 62, 68, 72, 74, 80, 84, 86, 92, 98, 104, 110, 116, 120, 122, 128, 134, 140, 146, 152, 156, 158, 164, 170, 176, 182, 188, 192, 194, 200, 206, 212, 218, 224, 228, 230, 236, 242, 248, 254, 260, 264, 266, 272, 278

Offset: 1

Clark Kimberling, Nov 01 2016

Positions of 2 in A277544.

Numbers having 2 as rightmost nonzero digit in base 6. This is one sequence in a 5-way splitting of the positive integers; the other four are indicated in the Mathematica program. Every term is even; see A277572.

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A277544, A277567, A277569, A277572.

z = 260; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
p[b_, d_] := Flatten[Position[a[b], d]]
p[6, 1] (* A277567 *)
p[6, 2] (* A277568 *)
p[6, 3] (* A277569 *)
p[6, 4] (* A277570 *)
p[6, 5] (* A277571 *)

is(n)=(n/6^valuation(n,6))%6==2 \\ Charles R Greathouse IV, Nov 03 2016

a(n) = 5n + O(log n). - Charles R Greathouse IV, Nov 03 2016

A277569 Numbers k such that k/6^m == 3 (mod 6), where 6^m is the greatest power of 6 that divides k.

Original entry on oeis.org

3, 9, 15, 18, 21, 27, 33, 39, 45, 51, 54, 57, 63, 69, 75, 81, 87, 90, 93, 99, 105, 108, 111, 117, 123, 126, 129, 135, 141, 147, 153, 159, 162, 165, 171, 177, 183, 189, 195, 198, 201, 207, 213, 219, 225, 231, 234, 237, 243, 249, 255, 261, 267, 270, 273, 279

Offset: 1

Clark Kimberling, Nov 01 2016

Positions of 3 in A277544.
Numbers having 3 as rightmost nonzero digit in base 6.  This is one sequence in a 5-way splitting of the positive integers; the other four are indicated in the Mathematica program.  Every term is a multiple of 3; see A277573.
Numbers m having the property that tau(3m) < tau(2m) where tau(m) = A000005(m) (i.e., the number of divisors of m). - Gary Detlefs, Jan 28 2019

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A277544, A277567, A277568, A277573.

with(numtheory): for n from 1 to 279 do if tau(3*n)Gary Detlefs, Jan 28 2019

z = 260; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
p[b_, d_] := Flatten[Position[a[b], d]]
p[6, 1] (* A277567 *)
p[6, 2] (* A277568 *)
p[6, 3] (* this sequence *)
p[6, 4] (* A277570 *)
p[6, 5] (* A277571 *)

is(n)=(n/6^valuation(n,6))%6==3 \\ Charles R Greathouse IV, Nov 03 2016

a(n) = 5n + O(log n). - Charles R Greathouse IV, Nov 03 2016

A277570 Numbers k such that k/6^m == 4 (mod 6), where 6^m is the greatest power of 6 that divides k.

Original entry on oeis.org

4, 10, 16, 22, 24, 28, 34, 40, 46, 52, 58, 60, 64, 70, 76, 82, 88, 94, 96, 100, 106, 112, 118, 124, 130, 132, 136, 142, 144, 148, 154, 160, 166, 168, 172, 178, 184, 190, 196, 202, 204, 208, 214, 220, 226, 232, 238, 240, 244, 250, 256, 262, 268, 274, 276, 280

Offset: 1

Clark Kimberling, Nov 01 2016

Positions of 4 in A277544.

Numbers having 4 as rightmost nonzero digit in base 6. This is one sequence in a 5-way splitting of the positive integers; the other four are indicated in the Mathematica program. Every term is even; see A277574.

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A277544, A277567, A277571, A277574.

z = 260; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
p[b_, d_] := Flatten[Position[a[b], d]]
p[6, 1] (* A277567 *)
p[6, 2] (* A277568 *)
p[6, 3] (* A277569 *)
p[6, 4] (* A277570 *)
p[6, 5] (* A277571 *)

is(n)=(n/6^valuation(n,6))%6==4 \\ Charles R Greathouse IV, Nov 03 2016

a(n) = 5n + O(log n). - Charles R Greathouse IV, Nov 03 2016

A277567 Numbers k such that k/6^m == 1 (mod 6), where 6^m is the greatest power of 6 that divides k.

Original entry on oeis.org

1, 6, 7, 13, 19, 25, 31, 36, 37, 42, 43, 49, 55, 61, 67, 73, 78, 79, 85, 91, 97, 103, 109, 114, 115, 121, 127, 133, 139, 145, 150, 151, 157, 163, 169, 175, 181, 186, 187, 193, 199, 205, 211, 216, 217, 222, 223, 229, 235, 241, 247, 252, 253, 258, 259, 265

Offset: 1

Clark Kimberling, Nov 01 2016

Positions of 1 in A277544. Numbers having 1 as rightmost nonzero digit in base 6. This is one sequence in a 5-way splitting of the positive integers; the other four are indicated in the Mathematica program.

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A277544, A277568, A277569.

z = 260; a[b_] := Table[Mod[n/b^IntegerExponent[n, b], b], {n, 1, z}]
p[b_, d_] := Flatten[Position[a[b], d]]
p[6, 1] (* A277567 *)
p[6, 2] (* A277568 *)
p[6, 3] (* A277569 *)
p[6, 4] (* A277570 *)
p[6, 5] (* A277571 *)
Select[Range[300],Mod[#/6^IntegerExponent[#,6],6]==1&] (* Harvey P. Dale, Sep 27 2023 *)

is(n)=(n/6^valuation(n,6))%6==1 \\ Charles R Greathouse IV, Nov 03 2016

a(n) = 5n + O(log n). - Charles R Greathouse IV, Nov 03 2016

cp's OEIS Frontend

A277568 Numbers k such that k/6^m == 2 (mod 6), where 6^m is the greatest power of 6 that divides k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A277569 Numbers k such that k/6^m == 3 (mod 6), where 6^m is the greatest power of 6 that divides k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A277570 Numbers k such that k/6^m == 4 (mod 6), where 6^m is the greatest power of 6 that divides k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A277567 Numbers k such that k/6^m == 1 (mod 6), where 6^m is the greatest power of 6 that divides k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula