A010070 Base 8 self or Colombian numbers (not of form k + sum of base 8 digits of k).
1, 3, 5, 7, 16, 25, 34, 43, 52, 61, 70, 72, 81, 90, 99, 108, 117, 126, 135, 137, 146, 155, 164, 173, 182, 191, 200, 202, 211, 220, 229, 238, 247, 256, 265, 267, 276, 285, 294, 303, 312, 321, 330, 332, 341, 350, 359, 368, 377, 386, 395, 397, 406, 415, 424, 433
Offset: 1
References
- Steven R. Finch, Mathematical Constants, Cambridge, 2003, Section 2.24, pp. 179-180.
- József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, Chapter 4, p. 384-386.
Links
Programs
-
Mathematica
s[n_] := n + Plus @@ IntegerDigits[n, 8]; m = 500; Complement[Range[m], Array[s, m]] (* Amiram Eldar, Nov 28 2020 *)
Extensions
More terms from Amiram Eldar, Nov 28 2020