A070279 Sum of digits of n equals the sum of digits of 2n.
9, 18, 27, 36, 45, 54, 63, 72, 81, 90, 99, 108, 117, 126, 135, 153, 162, 171, 180, 189, 198, 207, 216, 225, 252, 261, 270, 279, 288, 297, 306, 315, 351, 360, 369, 378, 387, 396, 405, 450, 459, 468, 477, 486, 495, 504, 513, 522, 531, 540, 549, 594, 603, 612
Offset: 1
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[1000],Total[IntegerDigits[#]]==Total[IntegerDigits[ 2#]]&] (* Harvey P. Dale, Jul 22 2011 *)
-
PARI
is(n)=sumdigits(n)==sumdigits(2*n) \\ Charles R Greathouse IV, Jun 17 2012
Extensions
Incorrect comment removed by Charles R Greathouse IV, Jun 17 2012
Comments