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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A025616 Numbers of form 3^i*10^j, with i, j >= 0. 9
1, 3, 9, 10, 27, 30, 81, 90, 100, 243, 270, 300, 729, 810, 900, 1000, 2187, 2430, 2700, 3000, 6561, 7290, 8100, 9000, 10000, 19683, 21870, 24300, 27000, 30000, 59049, 65610, 72900, 81000, 90000, 100000, 177147, 196830, 218700, 243000, 270000 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

PROG

(Haskell)

import Data.Set (singleton, deleteFindMin, insert)

a025616 n = a025616_list !! (n-1)

a025616_list = f $ singleton (1, 0, 0) where

   f s = y : f (insert (3 * y, i + 1, j) $ insert (10 * y, i, j + 1) s')

         where ((y, i, j), s') = deleteFindMin s

-- Reinhard Zumkeller, May 15 2015

(PARI) list(lim)=my(v=List(), N); for(n=0, logint(lim\=1, 10), N=10^n; while(N<=lim, listput(v, N); N*=3)); Set(v) \\ Charles R Greathouse IV, Jan 10 2018

CROSSREFS

Cf. A025612, A025621, A025625, A025629, A025632, A025634, A025635, A108761, A003596, A003597, A107988, A003598, A108698, A003599, A107788, A108687, A108779, A108090.

Sequence in context: A247519 A077560 A060140 * A305091 A282635 A136852

Adjacent sequences:  A025613 A025614 A025615 * A025617 A025618 A025619

KEYWORD

easy,nonn

AUTHOR

David W. Wilson

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 May 22 15:11 EDT 2019. Contains 323480 sequences. (Running on oeis4.)