|
|
A032827
|
|
Numbers whose set of base-15 digits is {1,4}.
|
|
1
|
|
|
1, 4, 16, 19, 61, 64, 241, 244, 286, 289, 916, 919, 961, 964, 3616, 3619, 3661, 3664, 4291, 4294, 4336, 4339, 13741, 13744, 13786, 13789, 14416, 14419, 14461, 14464, 54241, 54244, 54286, 54289, 54916, 54919, 54961, 54964
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(1)=1, a(2)=4; a(n) = 15*a(floor(n/2))+1 for n odd, otherwise a(n) = 15*a(floor((n-1)/2))+4. - Bruno Berselli, May 28 2012
|
|
MATHEMATICA
|
Flatten[Table[FromDigits[#, 15]&/@Tuples[{1, 4}, n], {n, 5}]] (* Vincenzo Librandi, May 28 2012 *)
|
|
PROG
|
(Magma) [n: n in [1..60000] | Set(IntegerToSequence(n, 15)) subset {1, 4}]; // Vincenzo Librandi, May 28 2012
(Maxima) a[1]:1$ a[2]:4$ a[n]:= if oddp(n) then 15*a[floor(n/2)]+1 else 15*a[floor((n-1)/2)]+4$ makelist(a[n], n, 1, 38); /* Bruno Berselli, May 28 2012 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|