A328780 -id:A328780 - cp's OEIS frontend

A328781 Nonnegative integers k such that k and k^2 contain the same number of zero digits in their decimal expansion.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 46, 54, 56, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 77, 79, 81, 82, 83, 85, 86, 87, 88, 89, 91, 92, 93, 94, 96, 104, 105

Offset: 1

Bernard Schott, Oct 27 2019

Inspired by A328780.
This sequence is not a duplicate of A052040. The first 72 terms until 96 are exactly the same but a(73) = 104 belongs to this sequence because 104^2 = 10816, but 104 doesn't belong to A052040 because there is one zero digit in the decimal expansion of 104^2.
The nonnegative integers that do not belong to this sequence are divided into three sequences:
1) A104315 = A052040 \ {this sequence}: Numbers k such that k contains at least one zero, but k^2 contains no zero (e.g., 106 with 106^2 = 11236).
2) A134844 = Numbers k such that k contains no zero but k^2 contains at least one zero (e.g., 32 with 32^2 = 1024).
3) A328783 = Numbers k such that k and k^2 contain at least one zero but not the same number of zeros (e.g., 101 with 101^2 = 10201).
Another sequence is A328782 = {this sequence} \ A052040 which lists the positive integers that have the same positive number of zeros in their decimal expansions as in their squares. The first two examples > 0 are 104 with 104^2 = 10816 and 105 with 105^2 = 11025.

			12 and 144 = 12^2 have no digit zero in their decimal representation, so 12 is a term.
203 and 41209 = 203^2 both have one digit zero in their decimal representation, so 203 is also a term.

Giovanni Resta, Table of n, a(n) for n = 1..10000

Cf. A052040, A104315, A134844.

Cf. A323780, A328782, A328783.

select(t -> numboccur(0, convert(t^2,base,10))=numboccur(0, convert(t,base,10)), [$0..200]); # Robert Israel, Oct 27 2019

Select[Range[0, 105], Equal @@ Total /@ (1 - Sign@ IntegerDigits[{#, #^2}]) &] (* Giovanni Resta, Feb 27 2020 *)

A328782 Integers k such that k and k^2 contain the same number > 0 of digits zero in their decimal expansion.

Original entry on oeis.org

0, 104, 105, 203, 205, 302, 303, 305, 402, 403, 405, 504, 505, 506, 507, 508, 509, 601, 602, 603, 605, 609, 701, 702, 703, 705, 708, 709, 801, 802, 803, 805, 901, 902, 903, 905, 906, 1006, 1007, 1008, 1009, 1011, 1012, 1013, 1014, 1016, 1017, 1018, 1019, 1021

Offset: 1

Bernard Schott, Oct 28 2019

			703 and 494209 = 703^2 both have one zero digit in their decimal expansion.

Giovanni Resta, Table of n, a(n) for n = 1..10000

Equals A328781 \ A052040.

Cf. A104315, A134844, A328780, A328783.

f:= n-> numboccur(0, convert(n, base, 10)):
q:= n-> ((x, y)-> x>0 and x=y)(f(n), f(n^2)):
select(q, [$0..1030])[];  # Alois P. Heinz, Oct 28 2019

Select[Range[0, 1100], DigitCount[#, 10, 0] == DigitCount[#^2, 10, 0] > 0 &] (* Giovanni Resta, Feb 27 2020 *)

More terms from Alois P. Heinz, Oct 28 2019

A328783 Numbers k such that k and k^2 contain at least one zero but not the same number of 0's.

Original entry on oeis.org

10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 101, 102, 103, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 201, 202, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 301, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 401, 410, 420, 430, 440, 450, 460, 470

Offset: 1

Bernard Schott, Oct 28 2019

This sequence is one of the three sequences whose numbers k and k^2 don't contain the same number of 0, the two others are A104315 and A134844.

			201 and 40401 = 201^2 have both at least one zero but not the same number of 0 in their decimal expansion, hence, 201 is a term.

Giovanni Resta, Table of n, a(n) for n = 1..10000

Cf. A052040, A104315, A134844, A328780, A328781, A328782.

f:= n-> numboccur(0, convert(n, base, 10)):
q:= n-> ((x, y)-> x>0 and y>0 and x<>y)(f(n), f(n^2)):
select(q, [$0..500])[];  # Alois P. Heinz, Oct 28 2019

Select[Range[0, 470], (x = DigitCount[#, 10, 0]) > 0 && (y = DigitCount[ #^2, 10, 0]) > 0 && x != y &] (* Giovanni Resta, Feb 27 2020 *)

More terms from Alois P. Heinz, Oct 28 2019

cp's OEIS Frontend

A328781 Nonnegative integers k such that k and k^2 contain the same number of zero digits in their decimal expansion.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A328782 Integers k such that k and k^2 contain the same number > 0 of digits zero in their decimal expansion.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A328783 Numbers k such that k and k^2 contain at least one zero but not the same number of 0's.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions