A032827 Numbers whose set of base-15 digits is {1,4}.

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

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Index entries for 15-automatic sequences.

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

Sequence in context: A175527 A146510 A232524 * A328465 A280844 A277887

Adjacent sequences: A032824 A032825 A032826 * A032828 A032829 A032830

Keyword

nonn,base,easy

Author

Clark Kimberling

Status

approved