OFFSET
1,3
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..78
EXAMPLE
10 in base 2 is 1010 and its derivative is (1+0)(0+1)(1+0)-> 111 that is 7 in base 10 and 7 is also the arithmetic derivative of 10.
MAPLE
with(numtheory): P:=proc(q) local a, b, i, n, p;
for n from 0 to q do a:=0; b:=convert(n, base, 2);
for i from 1 to nops(b)-1 do a:=a+((b[i]+b[i+1]) mod 2)*2^(i-1); od;
if a=n*add(op(2, p)/op(1, p), p=ifactors(n)[2]) then print(n); fi;
od; end: P(10^6);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo P. Lava, Jun 08 2016
STATUS
approved