|
| |
|
|
A025613
|
|
Numbers of form 3^i*4^j, with i, j >= 0.
|
|
4
|
|
|
|
1, 3, 4, 9, 12, 16, 27, 36, 48, 64, 81, 108, 144, 192, 243, 256, 324, 432, 576, 729, 768, 972, 1024, 1296, 1728, 2187, 2304, 2916, 3072, 3888, 4096, 5184, 6561, 6912, 8748, 9216, 11664, 12288, 15552, 16384, 19683, 20736, 26244, 27648, 34992, 36864, 46656
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
Subsequence of 3-smooth numbers, cf. A003586.
|
|
|
LINKS
|
_Reinhard Zumkeller_, Table of n, a(n) for n = 1..10000
|
|
|
PROG
|
(Haskell)
import Data.Set (singleton, deleteFindMin, insert)
a025613 n = a025613_list !! (n-1)
a025613_list = f $ singleton 1
where f s = m : (f $ insert (3*m) $ insert (4*m) s')
where (m, s') = deleteFindMin s
-- Reinhard Zumkeller, Jun 01 2011
|
|
|
CROSSREFS
|
Cf. A191113, A191145, A191126, A191127, A191128, A191129, A191130, A191131.
Sequence in context: A112169 A155564 A105137 * A097063 A026476 A002513
Adjacent sequences: A025610 A025611 A025612 * A025614 A025615 A025616
|
|
|
KEYWORD
|
easy,nonn
|
|
|
AUTHOR
|
David W. Wilson
|
|
|
STATUS
|
approved
|
| |
|
|
