A328783 -id:A328783 - cp's OEIS frontend

A328780 Nonnegative integers k such that k and k^2 have the same number of nonzero digits.

0, 1, 2, 3, 10, 20, 30, 100, 200, 245, 247, 249, 251, 253, 283, 300, 448, 548, 949, 1000, 1249, 1253, 1416, 1747, 1749, 1751, 1753, 1755, 2000, 2245, 2247, 2249, 2251, 2253, 2429, 2450, 2451, 2470, 2490, 2498, 2510, 2530, 2647, 2830, 3000, 3747, 3751, 4480, 4899

Offset: 1

Bernard Schott, Oct 27 2019

The idea of this sequence comes from the 1st problem of the 28th British Mathematical Olympiad in 1992 (see the link).
This sequence is infinite because the family of integers {10^k, k >= 0} (A011557) belongs to this sequence.
The numbers m, m + 1, m + 2 where m = 49*10^k - 3, or m = 99*10^k - 3, k >= 3 are terms with all nonzero digits. - Marius A. Burtea, Dec 21 2020

			247^2 = 61009, hence 247 and 61009 both have 3 nonzero digits, 247 is a term.

A. Gardiner, The Mathematical Olympiad Handbook: An Introduction to Problem Solving, Oxford University Press, 1997, reprinted 2011, Pb 1 pp. 57 and 109 (1992)

Giovanni Resta, Table of n, a(n) for n = 1..10000.
British Mathematical Olympiad, 1992 - Problem 1.
Index to sequences related to Olympiads.

Subsequences: A011557, A093136, A093138.
Cf. A052040, A104315, A134844.
Cf. A328781, A328782, A328783.

nz:=func; [k:k in [0..5000] | nz(k) eq nz(k^2)]; // Marius A. Burtea, Dec 21 2020

q:= n->(f->f(n)=f(n^2))(t->nops(subs(0=[][], convert(t, base, 10)))):
select(q, [$0..5000])[];  # Alois P. Heinz, Oct 27 2019

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

isok(k) = hammingweight(digits(k)) == hammingweight(digits(k^2)); \\ Michel Marcus, Dec 22 2020

More terms from Alois P. Heinz, Oct 27 2019

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

Original entry on oeis.org

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

cp's OEIS Frontend

A328780 Nonnegative integers k such that k and k^2 have the same number of nonzero digits.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Extensions

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