A258231 - OEIS

A258231

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

%I #55 Apr 24 2016 05:55:30

%S 1,4762,4832,10376,10493,11205,12385,14829,23506,24605,26394,34196,

%T 36215,48302,49827,68474,71205,72576,74528,79286,79603,79836,94583,

%U 94867,96123,98376,100469,100496,100498,100499,100946,102245,102953,103265,103479,103756

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

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

%H Chai Wah Wu, <a href="/A258231/b258231.txt">Table of n, a(n) for n = 1..10000</a>

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

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

%o (Python)

%o 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

%Y Cf. A029774, A029793, A257763.

%K nonn,base

%O 1,2

%A _Harvey P. Dale_, Apr 23 2016