|
| |
|
|
A054786
|
|
Earliest sequence with a(a(n))=6n.
|
|
1
| |
|
|
0, 2, 6, 4, 18, 7, 12, 30, 9, 48, 11, 60, 36, 14, 78, 16, 90, 19, 24, 102, 21, 120, 23, 132, 108, 26, 150, 28, 162, 31, 42, 174, 33, 192, 35, 204, 72, 38, 222, 40, 234, 43, 180, 246, 45, 264, 47, 276, 54, 50, 294, 52, 306, 55, 288, 318, 57, 336, 59, 348, 66, 62, 366, 64
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=0..1000
Index entries for sequences of the a(a(n)) = 2n family
|
|
|
FORMULA
| a(12n)=6*a(2n), a(12n+1)=12n+2, a(12n+2)=72n+6, a(12n+3)=12n+4, a(12n+4)=72n+18, a(12n+5)=12n+7, a(12n+6)=6*a(2n+1), a(12n+7)=72n+30, a(12n+8)=12n+9, a(12n+9)=72n+48, a(12n+10)=12n+11, a(12n+11)=72n+60
|
|
|
MATHEMATICA
| a[0] = 0; a[n_] := a[n] = Switch[ Mod[n, 12], 0 | 6, 6*a[n/6], 1 | 3 | 8 | 10, n+1, 2 | 4 | 9 | 11, 6*n-6, 5, n+2, 7, 6*n-12]; Table[a[n], {n, 0, 63}] (* From Jean-François Alcover, Dec 20 2011, after formula *)
|
|
|
CROSSREFS
| Cf. A002516, A002517, A002518, A007379.
Sequence in context: A181159 A127320 A098917 * A033457 A133936 A065350
Adjacent sequences: A054783 A054784 A054785 * A054787 A054788 A054789
|
|
|
KEYWORD
| nice,nonn
|
|
|
AUTHOR
| Henry Bottomley (se16(AT)btinternet.com), Apr 27 2000
|
|
|
EXTENSIONS
| Typo in formula corrected by Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jul 23 2010
|
| |
|
|
