A159816 Seven-digit terms in A023086.
1025874, 1028574, 1042587, 1042857, 1052874, 1054287, 1072854, 1074285, 1078524, 1078542, 1085274, 1085427, 1087254, 1087425, 1087524, 1087542, 1207854, 1208754, 1240785, 1240875, 1245789, 1245879, 1247589, 1247859, 1248579, 1248759, 1250874, 1254087, 1257489
Offset: 1
Examples
a(1)=1025874 because 1025874 and 2*1025874=2051748 both use the same set of digits {0,1,2,4,5,7,8}; a(21)=1245789 because 1245789 and 2*1245789=2491578 both use the same set of digits {1,2,4,5,7,8,9}.
Links
- Zak Seidov, Table of n, a(n) for n = 1..288
Programs
-
Mathematica
anaQ[n_]:=Max[DigitCount[n]]==1&&Union[IntegerDigits[n]] == Union[ IntegerDigits[2n]]; Select[Range[1000000,1250000],anaQ] (* Harvey P. Dale, Oct 30 2011 *)
Comments