A055018 Numbers n such that n and n+1 are modest (cf. A054986).

411, 811, 1421, 2036, 2044, 2054, 3054, 4036, 4044, 4054, 8036, 12036, 16036, 20036, 24036, 28036, 32036, 40011, 40044, 50054, 50074, 80011, 88296, 100110, 100270, 100369, 120296, 120404, 140021, 144242, 176296, 200044, 200270, 200369

Offset

1,1

Links

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

Example

2036 is modest because Mod[2036, 36] = 20. 2037 is modest because Mod[2037, 037] = 2. Hence 2036 is this pair's modest twin representative.

Prog

(Haskell)
import Data.List (elemIndices)
a055018 n = a055018_list !! (n-1)
a055018_list = map (a054986 . (+ 1)) $ elemIndices 1 $
               zipWith (-) (tail a054986_list) a054986_list
-- Reinhard Zumkeller, Mar 26 2012

Crossrefs

Sequence in context: A212710 A187991 A090123 * A201844 A105211 A081378

Adjacent sequences: A055015 A055016 A055017 * A055019 A055020 A055021

Keyword

base,easy,nonn

Author

Hans Havermann, May 31 2000

Status

approved