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.

A259143 Number of distinct digits needed to write the calendar date of n-th day of a non-leap year in decimal representation, without leading zeros.

This page as a plain text file.
%I A259143 #13 May 04 2018 08:11:38
%S A259143 1,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,3,2,2,3,3,3,3,3,3,3,3,2,2,1,2,
%T A259143 2,2,2,2,2,2,3,2,2,3,3,3,3,3,3,3,2,2,1,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,
%U A259143 3,2,3,2,3,3,3,3,3,3,3,3,2,2,3,3,3,3
%N A259143 Number of distinct digits needed to write the calendar date of n-th day of a non-leap year in decimal representation, without leading zeros.
%C A259143 a(n) <= 4.
%H A259143 Reinhard Zumkeller, <a href="/A259143/b259143.txt">Table of n, a(n) for n = 1..365</a>
%H A259143 Wikipedia, <a href="http://en.wikipedia.org/wiki/Calendar_date">Calendar date</a>
%H A259143 <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%e A259143 .      | Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
%e A259143 .      |   1   2   3   4   5   6   7   8   9  10  11  12
%e A259143 .  ----+-------------------------------------------------
%e A259143 .    1 |   1   2   2   2   2   2   2   2   2   2   1   2
%e A259143 .    2 |   2   1   2   2   2   2   2   2   2   3   2   2
%e A259143 .    3 |   2   2   1   2   2   2   2   2   2   3   2   3
%e A259143 .    4 |   2   2   2   1   2   2   2   2   2   3   2   3
%e A259143 .    5 |   2   2   2   2   1   2   2   2   2   3   2   3
%e A259143 .    6 |   2   2   2   2   2   1   2   2   2   3   2   3
%e A259143 .    7 |   2   2   2   2   2   2   1   2   2   3   2   3
%e A259143 .    8 |   2   2   2   2   2   2   2   1   2   3   2   3
%e A259143 .    9 |   2   2   2   2   2   2   2   2   1   3   2   3
%e A259143 .   10 |   2   3   3   3   3   3   3   3   3   2   2   3
%e A259143 .   11 |   1   2   2   2   2   2   2   2   2   2   1   2
%e A259143 .   12 |   2   2   3   3   3   3   3   3   3   3   2   2
%e A259143 .   13 |   2   3   2   3   3   3   3   3   3   3   2   3
%e A259143 .   14 |   2   3   3   2   3   3   3   3   3   3   2   3
%e A259143 .   15 |   2   3   3   3   2   3   3   3   3   3   2   3
%e A259143 .   16 |   2   3   3   3   3   2   3   3   3   3   2   3
%e A259143 .   17 |   2   3   3   3   3   3   2   3   3   3   2   3
%e A259143 .   18 |   2   3   3   3   3   3   3   2   3   3   2   3
%e A259143 .   19 |   2   3   3   3   3   3   3   3   2   3   2   3
%e A259143 .   20 |   3   2   3   3   3   3   3   3   3   3   3   3
%e A259143 .   21 |   2   2   3   3   3   3   3   3   3   3   2   2
%e A259143 .   22 |   2   1   2   2   2   2   2   2   2   3   2   2
%e A259143 .   23 |   3   2   2   3   3   3   3   3   3   4   3   3
%e A259143 .   24 |   3   2   3   2   3   3   3   3   3   4   3   3
%e A259143 .   25 |   3   2   3   3   2   3   3   3   3   4   3   3
%e A259143 .   26 |   3   2   3   3   3   2   3   3   3   4   3   3
%e A259143 .   27 |   3   2   3   3   3   3   2   3   3   4   3   3
%e A259143 .   28 |   3   2   3   3   3   3   3   2   3   4   3   3
%e A259143 .   29 |   3   _   3   3   3   3   3   3   2   4   3   3
%e A259143 .   30 |   3   _   2   3   3   3   3   3   3   3   3   4
%e A259143 .   31 |   2   _   2   _   3   _   3   3   _   3   _   3  .
%e A259143 13 days need just 1 digit: {1, 11, 33, 53, 62, 94, 125, 157, 188, 220, 252, 305, 315} = {Jan 1, Jan 11, Feb 2, Feb 22, Mar 3, Apr 4, May 5, Jun 6, Jul 7, Aug 8, Sep 9, Nov 1, Nov 11};
%e A259143 152 days need 2 digits: the first is the 2nd day = Jan 2, the last one is the 356th day = Dec 22;
%e A259143 192 days need 3 digits: the first is the 20th day = Jan 20, the last one is the last day of the year = Dec 31;
%e A259143 8 days need 4 digits: {296 .. 302, 364} = Oct 23 through Oct 29, and also the penultimate day of the year = Dec 30.
%o A259143 (Haskell)
%o A259143 import Data.List (nub)
%o A259143 a259143 n = a259143_list !! (n-1)
%o A259143 a259143_list = [length $ nub $ show m ++ show d |
%o A259143                 m <- [1 .. 12], d <- [1 .. a008685 m]]
%Y A259143 Cf. A008685.
%K A259143 nonn,base,fini,full
%O A259143 1,2
%A A259143 _Reinhard Zumkeller_, Jun 19 2015