A023087 Numbers k such that k and 3*k are anagrams.
0, 1035, 2475, 10035, 10350, 12375, 14247, 14724, 23751, 24147, 24714, 24750, 24876, 24975, 27585, 28575, 100035, 100350, 102375, 103428, 103500, 107235, 113724, 114237, 123507, 123714, 123750, 123876, 123975, 124137, 128034, 134505, 135045
Offset: 1
References
- Fred Schuh, The Master Book of Mathematical Recreations, Dover, New York, 1968, pp. 25-31.
Links
- Zak Seidov and David W. Wilson, Table of n, a(n) for n = 1..10001 (first 3000 terms from Zak Seidov)
Programs
-
Mathematica
si[n_] := Sort@ IntegerDigits@ n; Flatten@ {0, Table[ Select[ Range[10^d + 8, 4 10^d - 1, 9], si[#] == si[3 #] &], {d, 0, 6}]} (* Giovanni Resta, Mar 20 2017, corrected by Philippe Guglielmetti, Jul 16 2018 *)
Comments