OFFSET
1,1
COMMENTS
From Robert Israel, Jul 28 2020: (Start)
The first even term is a(2747)=68998.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
filter:= proc(n) 2*numtheory:-tau(n) = numtheory:-tau(convert(convert(n, base, 10), `+`)) end proc:
select(filter, [$1..1000]); # Robert Israel, Jul 28 2020
PROG
(PARI) isok(k) = (k >= 1) && (2*numdiv(k) == numdiv(sumdigits(k, 10))); \\ Daniel Suteu, Feb 20 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ctibor O. Zizka, Feb 20 2019
STATUS
approved