The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A166370 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A166370

Numbers whose sum of digits is 17.
(history; published version)

#12 by Charles R Greathouse IV at Thu Sep 08 08:45:48 EDT 2022

PROG

(MAGMAMagma) [n: n in [1..900] | &+Intseq(n) eq 17]; // Vincenzo Librandi, Mar 07 2013

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#11 by Reinhard Zumkeller at Thu Jul 17 03:01:27 EDT 2014

STATUS

editing

approved

#10 by Reinhard Zumkeller at Thu Jul 17 01:41:14 EDT 2014

COMMENTS

A007953(a(n)) = 17; number of repdigits = A242627(17) = 1. - Reinhard Zumkeller, Jul 17 2014

PROG

(Haskell)

a166370 n = a166370_list !! (n-1)

a166370_list = filter ((== 17) . a007953) [0..]

-- Reinhard Zumkeller, Jul 17 2014

CROSSREFS

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

Cf. A242614, A242627.

STATUS

approved

editing

#9 by Bruno Berselli at Thu Mar 07 10:25:13 EST 2013

STATUS

editing

approved

#8 by Bruno Berselli at Thu Mar 07 10:24:52 EST 2013

NAME

Numbers n such that the sums whose sum of digits is 17.

STATUS

approved

editing

Discussion

Thu Mar 07

10:25

Bruno Berselli: Name as A052224.

#7 by Bruno Berselli at Thu Mar 07 08:11:43 EST 2013

STATUS

editing

approved

#6 by Bruno Berselli at Thu Mar 07 08:11:39 EST 2013

PROG

(MAGMA) [n: n in [1..900] | & + Intseq(n) eq (17)]; // Vincenzo Librandi, Mar 07 2013

STATUS

reviewed

editing

#5 by Joerg Arndt at Thu Mar 07 03:37:16 EST 2013

STATUS

proposed

reviewed

#4 by Vincenzo Librandi at Thu Mar 07 03:03:18 EST 2013

STATUS

editing

proposed

#3 by Vincenzo Librandi at Thu Mar 07 03:02:44 EST 2013

NAME

Numbers n such that the sums of digits is 17.

LINKS

Vincenzo Librandi, <a href="/A166370/b166370.txt">Table of n, a(n) for n = 1..1000</a>

MATHEMATICA

Select[Range[900], Total[IntegerDigits[#]] == 17&] (* Vincenzo Librandi, Mar 07 2013 *)

PROG

(MAGMA) [n: n in [1..900] | & + Intseq(n) eq (17)]; // Vincenzo Librandi, Mar 07 2013

CROSSREFS

Cf. A011557, A052216 * A052224, A143164, A166311, A166459.

STATUS

approved

editing