login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A054986 Base-10 modest numbers. 4
13, 19, 23, 26, 29, 39, 46, 49, 59, 69, 79, 89, 103, 109, 111, 133, 199, 203, 206, 209, 211, 218, 222, 233, 266, 299, 309, 311, 327, 333, 399, 406, 409, 411, 412, 418, 422, 433, 436, 444, 466, 499, 509, 511, 515, 533, 545, 555, 599, 609, 611, 618, 622, 627 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

A number is modest if there exists at least one partitioning of its decimal expansion wherein the number divided by the second part leaves a remainder of the first part.

REFERENCES

Problem 1291, J. Rec. Math., 17 (No.2, 1984), 140-141.

LINKS

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

EXAMPLE

2036 is modest because 2036 mod 36 = 20. 2037 is modest because 2037 mod 037 = 2.

PROG

(Haskell)

import Data.List (inits, tails)

a054986 n = a054986_list !! (n-1)

a054986_list = filter modest [1..] where

   modest x = or $ zipWith m

              (map read $ (init $ tail $ inits $ show x) :: [Integer])

              (map read $ (tail $ init $ tails $ show x) :: [Integer])

      where m u v = u < v && (x - u) `mod` v == 0

-- Reinhard Zumkeller, Mar 26 2012

(PARI) is(n, p=1)=while(n>p*=10, n%p&&(n%(n%p)==n\p)&&return(1)) \\ M. F. Hasler, Sep 17 2014

CROSSREFS

Cf. A007627.

Sequence in context: A188540 A088184 A274407 * A210582 A071621 A240565

Adjacent sequences:  A054983 A054984 A054985 * A054987 A054988 A054989

KEYWORD

easy,nonn,base

AUTHOR

Hans Havermann, May 30 2000

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified November 24 00:27 EST 2017. Contains 295164 sequences.