login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052046 Squares whose digits occur with the same frequency. 10
0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 169, 196, 256, 289, 324, 361, 529, 576, 625, 729, 784, 841, 961, 1024, 1089, 1296, 1369, 1764, 1849, 1936, 2304, 2401, 2601, 2704, 2809, 2916, 3025, 3249, 3481, 3721, 4096, 4356, 4761, 5041, 5184, 5329, 5476, 6084, 6241 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

Contains all members of A078255 that are < 10^10. 7744 is the first member that is not a member of A078255. - David Wasserman, Jun 27 2006

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

P. De Geest, Numbers whose digits occur with same frequency

MAPLE

filter:= proc(n) local L, M;

  L:= convert(n, base, 10);

  M:= {seq(numboccur(i, L), i=0..9)} minus {0};

  nops(M) = 1

end proc:

select(filter, [seq(i^2, i=0..200)]); # Robert Israel, Jan 08 2018

MATHEMATICA

t={}; Do[If[Length[DeleteDuplicates[Transpose[Tally[IntegerDigits[n^2]]][[2]]]] == 1, AppendTo[t, n^2]], {n, 0, 80}]; t (* Jayanta Basu, May 10 2013 *)

sfQ[n_]:=Length[Union[Select[DigitCount[n], #!=0&]]]==1; Select[ Range[ 0, 80]^2, sfQ] (* Harvey P. Dale, May 05 2019 *)

CROSSREFS

Cf. A045540, A052047, A052048, A052049, A052050, A052051, A052052.

Cf. A078255.

Sequence in context: A115743 A014186 A052062 * A078255 A077356 A077357

Adjacent sequences:  A052043 A052044 A052045 * A052047 A052048 A052049

KEYWORD

nonn,base,less

AUTHOR

Patrick De Geest, Dec 15 1999

EXTENSIONS

Offset corrected by Michel Marcus, Aug 12 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 17 17:07 EDT 2019. Contains 324196 sequences. (Running on oeis4.)