A023092 Numbers k such that k and 8*k are anagrams.
0, 113967, 116397, 1014138, 1045638, 1064538, 1139148, 1139670, 1139967, 1141398, 1156392, 1163970, 1163997, 10014138, 10045638, 10064538, 10141380, 10145628, 10148913, 10149138, 10182564, 10265382, 10268145, 10288836, 10289637, 10296387
Offset: 1
Links
- David W. Wilson, Table of n, a(n) for n = 1..10001
Programs
-
Mathematica
fQ[n_] := Sort@ IntegerDigits[ n] == Sort@ IntegerDigits[ 8n]; Select[ Range[0, 10328885], fQ] (* Robert G. Wilson v, Oct 25 2012 *) Select[Range[0,103*10^5,9],Sort[IntegerDigits[#]]==Sort[IntegerDigits[8#]]&] (* Harvey P. Dale, Jul 18 2025 *)
Comments