A277114 Numbers such that the decimal digits of sigma(n) are a permutation of those of sigma(n)-n.

504, 1350, 3267, 3834, 6291, 6597, 7920, 12024, 13680, 19800, 19872, 19980, 25047, 26604, 30645, 46251, 49491, 53091, 54000, 55647, 57951, 60309, 60741, 62019, 62991, 64530, 65997, 70020, 72522, 80982, 86940, 86994, 95580, 99990, 100908, 103374, 103950, 117702

Offset

1,1

Links

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

Example

sigma(504) = 1560 and sigma(504) - 504 = 1056. - Typo fixed by Ivan N. Ianakiev, Oct 04 2016

Maple

with(numtheory): P:= proc(q) local n; for n from 1 to q do
if sort(convert(sigma(n), base, 10))=sort(convert(sigma(n)-n, base, 10)) then print(n); fi; od; end: P(10^9);

Mathematica

Select[Range[10^5], Sort[IntegerDigits[DivisorSigma[1, #]]]==Sort[IntegerDigits[DivisorSigma[1, #]-#]]&] (* Ivan N. Ianakiev, Oct 04 2016 *)

Crossrefs

Cf. A000203, A001065, A115920,

Sequence in context: A060666 A335654 A226265 * A269038 A161005 A259953

Adjacent sequences: A277111 A277112 A277113 * A277115 A277116 A277117

Keyword

nonn,base,easy

Author

Paolo P. Lava, Sep 30 2016

Status

approved