OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..8190
MATHEMATICA
Flatten[Table[FromDigits[#, 10]&/@Tuples[{4, 5}, n], {n, 5}]]
PROG
(Magma) [n: n in [1..60000] | Set(IntegerToSequence(n, 10)) subset {5, 4}];
(PARI) A256290(n)=vector(#n=binary(n+1)[2..-1], i, 10^(#n-i))*n~+10^#n\9*4
(Magma) [n: n in [1..100000] | Set(Intseq(n)) subset {4, 5}]; // Vincenzo Librandi, Aug 19 2016
(Python)
def A256290(n): return int(bin(n+1)[3:])+(10**((n+1).bit_length()-1)-1<<2)//9 # Chai Wah Wu, Jul 15 2023
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Mar 27 2015
STATUS
approved