OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 2 * A084544(n). - Reinhard Zumkeller, Jan 01 2013
PROG
(Haskell)
a045926 n = a045926_list !! (n-1)
a045926_list = filter (all (`elem` "2468") . show) [2, 4..]
-- Reinhard Zumkeller, Jan 01 2013
(Python)
def A045926(n):
m = (3*n+1).bit_length()-1>>1
return int(''.join((str(((3*n+1-(1<<(m<<1)))//(3<<((m-1-j)<<1))&3)+1) for j in range(m))))<<1 # Chai Wah Wu, Feb 08 2023
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
EXTENSIONS
More terms from Patrick De Geest, Jun 15 1999
STATUS
approved