A258231 Numbers n such that both n and n squared contain exactly the same digits, and n is not divisible by 10.

1, 4762, 4832, 10376, 10493, 11205, 12385, 14829, 23506, 24605, 26394, 34196, 36215, 48302, 49827, 68474, 71205, 72576, 74528, 79286, 79603, 79836, 94583, 94867, 96123, 98376, 100469, 100496, 100498, 100499, 100946, 102245, 102953, 103265, 103479, 103756

Offset

1,2

Comments

If n is in this sequence, then n*10^k also satisfies the first portion of the definition for all k >= 0.

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Example

4832 is a term because 4832 squared = 23348224 which contains exactly the same digits as 4832.

Mathematica

Select[Select[Range[200000], ContainsExactly[IntegerDigits[ #], IntegerDigits[ #^2]]&], !Divisible[#, 10]&]

Prog

(Python)
A258231_list = [n for n in range(10**6) if n % 10 and set(str(n)) == set(str(n**2))] # Chai Wah Wu, Apr 23 2016

Crossrefs

Cf. A029774, A029793, A257763.

Sequence in context: A237553 A250467 A183267 * A257763 A260293 A031567

Adjacent sequences: A258228 A258229 A258230 * A258232 A258233 A258234

Keyword

nonn,base

Author

Harvey P. Dale, Apr 23 2016

Status

approved