A104694 -id:A104694 - cp's OEIS frontend

A104695 Rearrangement of positive integers inverse to A104694.

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.

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

cp's OEIS Frontend

A104695 Rearrangement of positive integers inverse to A104694.

Views

Author

Keywords

Crossrefs

Formula

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