A104639 -id:A104639 - cp's OEIS frontend

A104640 Number of odd digits in n^3.

1, 0, 1, 0, 2, 1, 2, 2, 2, 1, 4, 2, 3, 1, 4, 1, 3, 2, 2, 0, 2, 1, 3, 2, 3, 4, 3, 3, 2, 1, 4, 2, 5, 3, 2, 1, 3, 2, 5, 0, 2, 1, 4, 2, 4, 4, 3, 4, 4, 2, 4, 1, 3, 3, 4, 4, 5, 5, 4, 1, 2, 2, 2, 1, 2, 2, 3, 3, 3, 2, 6, 3, 4, 1, 3, 3, 4, 3, 4, 2, 4, 4, 5, 3, 3, 2, 3, 2, 3, 2, 6, 2, 3, 2, 5, 2, 4, 4, 4, 1

Offset: 1

Zak Seidov, Mar 18 2005

G. C. Greubel, Table of n, a(n) for n = 1..10000

Cf. A104639, A196564.

Table[Count[IntegerDigits[n^3],?OddQ],{n,100}] (* _Harvey P. Dale, Jun 23 2017 *)

a(n) = my(d = digits(n^3)); sum(i=1, #d, d[i] % 2); \\ Michel Marcus, Oct 05 2013

a(n) = A196564(n^3). - Michel Marcus, Oct 05 2013

A104641 Numbers n such that n^3 has equal number of odd and even digits.

Original entry on oeis.org

3, 12, 18, 19, 21, 47, 53, 54, 67, 68, 69, 72, 75, 76, 78, 84, 85, 87, 89, 93, 216, 224, 236, 238, 243, 245, 247, 249, 260, 262, 275, 297, 299, 301, 303, 308, 309, 310, 323, 325, 326, 332, 333, 343, 346, 355, 356, 362, 363, 371, 374, 378, 382, 383, 387, 388, 395, 396

Offset: 1

Zak Seidov, Mar 18 2005

G. C. Greubel, Table of n, a(n) for n = 1..10000

Cf. A104639, A104640.

EqedQ[n_]:= Module[{idn3 = IntegerDigits[n^3]}, Count[idn3, ?EvenQ] == Count[idn3, ?OddQ]]; Select[Range[2000], EqedQ] (* G. C. Greubel, Aug 14 2018 *)

isok(n) = my(d = digits(n^3)); sum(i=1, #d, 1 - (d[i] % 2)) == sum(i=1, #d, d[i] % 2); \\ Michel Marcus, Oct 05 2013

A104692 Numbers n such that in n^3, number of odd digits is less than number of even digits.

Original entry on oeis.org

2, 4, 6, 10, 14, 16, 20, 22, 24, 29, 30, 32, 35, 36, 38, 40, 41, 42, 44, 50, 52, 60, 61, 62, 63, 64, 65, 66, 70, 74, 80, 86, 88, 90, 92, 94, 96, 100, 102, 104, 107, 112, 113, 114, 116, 118, 120, 122, 123, 124, 126, 127, 129, 130, 131, 132, 134, 135

Offset: 1

Zak Seidov, Mar 18 2005

Numbers n such that in n^3, number of odd digits equals the number of even digits A104641. Numbers n such that in n^3, number of odd digits is larger than number of even digits A104693; rearrangement of positive integers according to number of odd and even digits in n^3 A104694, A104695; number of even digits in n^3 A104639, number of odd digits in n^3 A104640.

G. C. Greubel, Table of n, a(n) for n = 1..10000

Cf. A104639, A104640, A104641, A104693, A104694, A104695.

EvedQ[n_]:= Module[{idn3 = IntegerDigits[n^3]}, Count[idn3, ?OddQ] < Count[idn3, ?EvenQ]]; Select[Range[2000], EvedQ] (* G. C. Greubel, Aug 14 2018 *)

isok(n) = my(d = digits(n^3)); sum(i=1, #d, d[i] % 2) < sum(i=1, #d, 1 - (d[i] % 2)); \\ Michel Marcus, Oct 05 2013

More terms from Michel Marcus, Oct 05 2013

A104693 Numbers n such that in n^3, number of odd digits is larger than number of even digits.

Original entry on oeis.org

1, 5, 7, 8, 9, 11, 13, 15, 17, 23, 25, 26, 27, 28, 31, 33, 34, 37, 39, 43, 45, 46, 48, 49, 51, 55, 56, 57, 58, 59, 71, 73, 77, 79, 81, 82, 83, 91, 95, 97, 98, 99, 101, 103, 105, 106, 108, 109, 110, 111, 115, 117, 119, 121, 125, 128, 133, 136, 137, 146, 147

Offset: 1

Zak Seidov, Mar 18 2005

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Cf. A104639, A104640, A104641, A104692, A104694, A104695.

odedQ[n_]:=Module[{idn3=IntegerDigits[n^3]},Count[idn3,?EvenQ]<Count[ idn3,?OddQ]]; Select[Range[200],odedQ] (* Harvey P. Dale, May 16 2012 *)

More terms from Harvey P. Dale, May 16 2012

A104694 Rearrangement of positive integers according to number of odd and even digits in n^3.

Original entry on oeis.org

2, 3, 1, 4, 12, 5, 6, 18, 7, 10, 19, 8, 14, 21, 9, 16, 47, 11, 20, 53, 13, 22, 54, 15, 24, 67, 17, 29, 68, 23, 30, 69, 25, 32, 72, 26, 35, 75, 27, 36, 76, 28, 38, 78, 31, 40, 84, 33, 41, 85, 34, 42, 87, 37, 44, 89, 39, 50, 93, 43

Offset: 1

Zak Seidov, Mar 18 2005

Cf. A104639, A104640, A104641, A104692, A104693, A104695.

{A104692(n), A104691(n), A104693(n)}, n=1, 2, ...

A104695 Rearrangement of positive integers inverse to A104694.

Original entry on oeis.org

3, 1, 2, 4, 6, 7, 9, 12, 15, 10, 18, 5, 21, 13, 24, 16, 27, 8, 11, 19, 14, 22, 30, 25, 33, 36, 39, 42, 28, 31, 45, 34, 48, 51, 37, 40, 54, 43, 57, 46, 49, 52, 60, 55

Offset: 1

Zak Seidov, Mar 18 2005

Cf. A104639, A104640, A104641, A104692, A104693, A104694.

a(n) shows the position of n in A104694.

cp's OEIS Frontend

A104640 Number of odd digits in n^3.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A104641 Numbers n such that n^3 has equal number of odd and even digits.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

A104692 Numbers n such that in n^3, number of odd digits is less than number of even digits.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A104693 Numbers n such that in n^3, number of odd digits is larger than number of even digits.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A104694 Rearrangement of positive integers according to number of odd and even digits in n^3.

Views

Author

Keywords

Crossrefs

Formula

A104695 Rearrangement of positive integers inverse to A104694.

Views

Author

Keywords

Crossrefs

Formula