cp's OEIS Frontend

A302651 Numbers that are the product of some fixed power of the digits of their ten's complement.

%I A302651 #11 Jun 06 2018 23:08:25
%S A302651 5,8,81,2016,2205
%N A302651 Numbers that are the product of some fixed power of the digits of their ten's complement.
%C A302651 No other terms up to 10^40. - _Giovanni Resta_ Apr 12 2018
%C A302651 No other terms up to 10^51 - _Chai Wah Wu_, Jun 06 2018
%e A302651 (10 - 5) = 5 and 5^1 = 5;
%e A302651 (10 - 8) = 2 and 2^3 = 8;
%e A302651 (100 - 81) = 19 and 1^2 * 9^2 = 81;
%e A302651 (10000 - 2016) = 7984 and 7^1 * 9^1 * 8^1 * 4^1 = 2016;
%e A302651 (10000 - 2205) = 7795 and 7^1 * 7^1 * 9^1 * 5^1 = 2205;
%p A302651 with(numtheory): P:=proc(q) local a,b,i,j,k,n;
%p A302651 for n from 1 to q do a:=convert(10^(ilog10(n)+1)-n,base,10);
%p A302651 b:=convert(a,`*`); j:=1; i:=0; while n>b do
%p A302651 if i=b then break; else i:=b; j:=j+1; b:=add(a[k]^j,k=1..nops(a)); fi; od;
%p A302651 if n=b then print(n); fi; od; end: P(10^9);
%Y A302651 Cf. A023052, A261433, A302649.
%K A302651 nonn,base,more
%O A302651 1,1
%A A302651 _Paolo P. Lava_, Apr 11 2018