login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A116371 Number of partitions of n into parts with digital root = 1. 13
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 6, 7, 7, 7, 7, 7, 7, 7, 8, 10, 11, 12, 12, 12, 12, 12, 12, 13, 15, 17, 18, 19, 19, 19, 19, 19, 20, 23, 26, 28, 29, 30, 30, 30, 30, 31, 34, 38, 41, 43, 44, 45, 45, 45, 46, 50, 55, 60, 63, 65, 66, 67, 67, 68 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,10

COMMENTS

a(n) = A114102(n) - A116372(n) - A116373(n) - A116374(n) - A116375(n) - A116376(n) - A116377(n) - A116378(n) - A114099(n).

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..500

Eric Weisstein's World of Mathematics, Digital Root

EXAMPLE

a(18) = #{10+8x1, 18x1} = 2;

a(19) = #{19, 10+9x1, 19x1} = 3;

a(20) = #{19+1, 10+10, 10+10x1, 19x1} = 4.

PROG

(Haskell)

a116371 n = p a017173_list n where

   p _  0 = 1

   p [] _ = 0

   p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m

-- Reinhard Zumkeller, Feb 04 2014

CROSSREFS

Cf. A010888.

A147706. [From Reinhard Zumkeller, Nov 11 2008]

A017173, A156144, A156145. [From Reinhard Zumkeller, Feb 05 2009]

Sequence in context: A187187 A300358 A102682 * A103377 A103817 A073808

Adjacent sequences:  A116368 A116369 A116370 * A116372 A116373 A116374

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, Feb 12 2006

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 14 07:43 EDT 2020. Contains 335720 sequences. (Running on oeis4.)