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!)
A010371 Number of segments needed to represent n on calculator display (second version). 11
6, 2, 5, 5, 4, 5, 6, 4, 7, 6, 8, 4, 7, 7, 6, 7, 8, 6, 9, 8, 11, 7, 10, 10, 9, 10, 11, 9, 12, 11, 11, 7, 10, 10, 9, 10, 11, 9, 12, 11, 10, 6, 9, 9, 8, 9, 10, 8, 11, 10, 11, 7, 10, 10, 9, 10, 11, 9, 12, 11, 12, 8, 11, 11, 10, 11, 12, 10, 13, 12, 10, 6, 9, 9, 8, 9, 10, 8, 11, 10, 13, 9, 12, 12 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

Except for 1 and 3 every positive integer occurs; A143616 and A143617 give record values and where they occur. [Reinhard Zumkeller, Aug 27 2008]

The difference between this sequence and A006942 is that this sequence defines a 7 as:

   _

  | |

    |

whereas A006942 defines a 7 as:

   _

    |

    |

LINKS

R. Zumkeller, Table of n, a(n) for n = 0..10000

FORMULA

For n > 9: a(n) = a(floor(n/10)) + a(n mod 10). [Reinhard Zumkeller, Aug 27 2008]

EXAMPLE

LCD Display (cf. Casio scientific calculator fx-3600P):

   _     _  _       _   _   _   _   _

  | | |  _| _| |_| |_  |_  | | |_| |_|

  |_| | |_  _|   |  _| |_|   | |_|  _|

MATHEMATICA

MapIndexed[(f[#2[[1]]-1] = #1)&, {6, 2, 5, 5, 4, 5, 6, 4, 7, 6}]; a[n_] := Total[f /@ IntegerDigits[n]]; Table[a[n], {n, 0, 100}] (* Jean-Fran├žois Alcover, Mar 08 2017 *)

PROG

(Haskell)

a010371 n = a010371_list !! n

a010371_list = [6, 2, 5, 5, 4, 5, 6, 4, 7, 6] ++ f 10 where

   f x = (a010371 x' + a010371 d) : f (x + 1)

         where (x', d) = divMod x 10

-- Reinhard Zumkeller, Mar 15 2013

CROSSREFS

Cf. A006942, A063720.

Sequence in context: A277116 A006942 A074458 * A270614 A011489 A093601

Adjacent sequences:  A010368 A010369 A010370 * A010372 A010373 A010374

KEYWORD

nonn,base,easy,nice,look

AUTHOR

Olivier.Gagneux(AT)roche.com

EXTENSIONS

Corrected and extended by Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Dec 27 1999

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 February 18 03:44 EST 2020. Contains 332006 sequences. (Running on oeis4.)