A225902 Numbers whose arithmetic derivatives are a permutation of their digits.

4, 27, 94, 308, 526, 594, 950, 1208, 1269, 1647, 2403, 3125, 5589, 5643, 5926, 6934, 9369, 10503, 10568, 11084, 11284, 12404, 12447, 13130, 13500, 14024, 14769, 17469, 17847, 18036, 20358, 20547, 20852, 25569, 27891, 28647, 29835, 34803, 36068, 36180, 36747

Offset

1,1

Comments

A051674 is a subsequence of this sequence.

Links

Paolo P. Lava, Table of n, a(n) for n = 1..5000

Example

18036' = 36180, so 18036 is a term.
20852' = 22508, so 20852 is a term.
48872' = 74828, so 48872 is a term.

Maple

with(numtheory); A225902:= proc(i) local a, b, c, d, j, n, ok, p, pfs;
for n from 1 to i do b:=[]; c:=[];
a:=n*add(op(2, p)/op(1, p), p=ifactors(n)[2]);
while a>0 do b:=[op(b), a mod 10]; a:=trunc(a/10); od; a:=n;
while a>0 do c:=[op(c), a mod 10]; a:=trunc(a/10); od; d:=0;
if nops(b)=nops(c) then b:=sort(b); c:=sort(c); b:=b-c; ok:=1; for j from 1 to nops(b) do if b[j]<>0  then ok:=0; break; fi; od; if ok=1 then print(n); fi; fi;
od; end; A225902(10000);

Crossrefs

Cf. A003415, A051674.

Sequence in context: A357841 A100488 A220019 * A071174 A092364 A296316

Adjacent sequences: A225899 A225900 A225901 * A225903 A225904 A225905

Keyword

nonn,base

Author

Paolo P. Lava, May 20 2013

Status

approved