cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A052223 Numbers whose sum of digits is 9.

Original entry on oeis.org

9, 18, 27, 36, 45, 54, 63, 72, 81, 90, 108, 117, 126, 135, 144, 153, 162, 171, 180, 207, 216, 225, 234, 243, 252, 261, 270, 306, 315, 324, 333, 342, 351, 360, 405, 414, 423, 432, 441, 450, 504, 513, 522, 531, 540, 603, 612, 621, 630, 702, 711, 720, 801, 810
Offset: 1

Views

Author

Henry Bottomley, Feb 01 2000

Keywords

Comments

Any term of this sequence with an 11 appended cannot have 11 as prime factor. See A075154. [Lekraj Beedassy, Sep 27 2009]
A007953(a(n)) = 9; number of repdigits = #{9,333,1^9} = A242627(9) = 3. - Reinhard Zumkeller, Jul 17 2014
A010872(a(n)) = A010878(a(n)) = 0. - Ilya Gutkovskiy, Jun 04 2016

Crossrefs

Cf. A007953.
Row n=9 of A245062.
Cf. A011557 (1), A052216 (2), A052217 (3), A052218 (4), A052219 (5), A052220 (6), A052221 (7), A052222 (8), A052224 (10), A166311 (11), A235151 (12), A143164 (13), A235225(14), A235226 (15), A235227 (16), A166370 (17), A235228 (18), A166459 (19), A235229 (20).

Programs

  • Haskell
    a052223 n = a052223_list !! (n-1)
    a052223_list = filter ((== 9) . a007953) [0..]
    -- Reinhard Zumkeller, Jul 17 2014
  • Magma
    [n: n in [1..1500] | &+Intseq(n) eq 9 ]; // Vincenzo Librandi, Mar 08 2013
    
  • Mathematica
    Select[Range[1500], Total[IntegerDigits[#]] == 9 &] (* Vincenzo Librandi, Mar 08 2013 *)

Extensions

More terms from Larry Reeves (Larryr(AT)acm.org), Sep 05 2000
Offset changed by Bruno Berselli, Mar 07 2013

A187924 a(n) is the smallest multiple of n such that a(n) ends with n and S(a(n))=n where S(m) is the sum of the base ten digits of m, or 0 if no such a(n) exists.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 910, 0, 912, 11713, 6314, 915, 3616, 15317, 918, 17119, 9920, 18921, 9922, 82823, 19824, 9925, 46826, 18927, 18928, 78329, 99930, 585931, 388832, 1098933, 198934, 289835, 99936, 99937, 478838, 198939, 1999840
Offset: 1

Views

Author

Martins Opmanis, Mar 16 2011

Keywords

Comments

It can be proved that a(11)=0 and, for infinitely many n, a(n) is the least integer with S(n)=n. Conjecture: 11 is the only n for which a(n)=0.
The conjecture is correct. Let m = (n*10^((n-S(n))/9) - n) * 10^floor(1+log_10(n)) + n. If n != 11, then it can be proved that m has all the required properties of a(n) except that it may not be the smallest candidate. If n=11, then S(m)=20 instead of the required 11. - Ørjan Johansen, Dec 08 2017

Examples

			For n=13 11713 is the least integer which is multiple of 13, ends with "13" and sum of digits in decimal notation also is 13.
		

Crossrefs

A075154 is similar but limited to equivalence of last two digits; therefore at least the first 99 terms are the same in both sequences.

Programs

  • Mathematica
    Table[If[n == 11, 0, Block[{k = 1}, While[Nand[FromDigits@ Take[#, -IntegerLength@ n] == n, Total@ # == n] &@ IntegerDigits[k n], k++]; k n]], {n, 40}] (* Michael De Vlieger, Dec 09 2017 *)
  • PARI
    a(n) = {if (n == 11, return (0)); my(k = 1); while (!((sumdigits(k*n) == n) && (nd = #digits(n)) && !((k*n - n) % 10^nd)), k++); k*n;} \\ Michel Marcus, Dec 23 2017

Extensions

Name corrected by Michel Marcus, Dec 24 2017
Showing 1-2 of 2 results.