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

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 56th year, we are closing in on 350,000 sequences, and we’ve crossed 9,700 citations (which often say “discovered thanks to the OEIS”).

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069524 Smallest multiple of n with digit sum = 5, or 0 if no such number exists, e.g. a(3k) = a(11k) = 0. 7
5, 14, 0, 32, 5, 0, 14, 32, 0, 50, 0, 0, 104, 14, 0, 32, 221, 0, 1121, 140, 0, 0, 23, 0, 50, 104, 0, 140, 203, 0, 2201, 32, 0, 2210, 140, 0, 0, 3002, 0, 320, 41, 0, 2021, 0, 0, 230, 2021, 0, 22001, 50, 0, 104, 212, 0, 0, 1400, 0, 2030, 1121, 0, 122, 22010, 0, 320, 1040 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

a(3k)= a(11k) =a(37k)=0. - Ray Chandler, Jul 30 2003

LINKS

Robert Israel, Table of n, a(n) for n = 1..3000

FORMULA

a(n) = n*A088394(n). - R. J. Mathar, Aug 06 2019

MAPLE

nextL:= proc(L)

local m, q, Lp;

for m from 1 do

   if L[m] > 0 then

    if m = LinearAlgebra:-Dimension(L) then return <4, 0$(m-1), 1>

    else Lp:= L;

       Lp[1]:= L[m]-1;

       Lp[2..m]:= 0;

       Lp[m+1]:= L[m+1]+1;

       return Lp;

    fi

   fi

od;

end proc:

N:= 300:

Agenda:= remove(t -> ormap(s -> (t mod s = 0), [3, 11, 37, 101, 137, 239]), {$1..N}):

L:= <5>: x:= 5:

A:= Vector(N):

while Agenda <> {} and x < 10^40 do

  x:= add(L[i]*10^(i-1), i=1..LinearAlgebra:-Dimension(L));

  found, Agenda:= selectremove(t -> x mod t = 0, Agenda);

  if found <> {} then

    A[convert(found, list)]:= x;

  fi;

  L:= nextL(L);

od:

convert(A, list): # Robert Israel, Sep 05 2019

CROSSREFS

Cf. A052219, A069521, A069522, A069523.

Sequence in context: A240765 A127317 A049506 * A262612 A333025 A144518

Adjacent sequences:  A069521 A069522 A069523 * A069525 A069526 A069527

KEYWORD

base,nonn

AUTHOR

Amarnath Murthy, Apr 01 2002

EXTENSIONS

More terms from Ray Chandler, Jul 30 2003

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 December 2 22:46 EST 2021. Contains 349445 sequences. (Running on oeis4.)