login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A337171 a(n) = A004186(n) mod n. 1
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 5, 13, 6, 13, 3, 9, 15, 0, 0, 0, 9, 18, 2, 10, 18, 26, 5, 0, 0, 0, 0, 9, 18, 27, 36, 7, 15, 0, 0, 0, 0, 0, 9, 18, 27, 36, 45, 0, 0, 0, 0, 0, 0, 9, 18, 27, 36, 0, 0, 0, 0, 0, 0, 0, 9, 18, 27, 0, 0, 0, 0, 0, 0, 0, 0, 9, 18 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,12

LINKS

Table of n, a(n) for n=1..79.

Simon Strandgaard, Plot of 1000 terms

EXAMPLE

a(12) = A004186(12) mod 12 = 21 mod 12 = 9,

a(13) = A004186(13) mod 13 = 31 mod 13 = 5,

a(14) = A004186(14) mod 14 = 41 mod 14 = 13,

a(15) = A004186(15) mod 15 = 51 mod 15 = 6,

a(16) = A004186(16) mod 16 = 61 mod 16 = 13.

MATHEMATICA

a[n_] := Mod[FromDigits @ Sort[IntegerDigits[n], Greater], n]; Array[a, 100] (* Amiram Eldar, Jan 30 2021 *)

PROG

(Ruby) values = (1..20).map do |n|

    n.to_s.split('').sort.join.reverse.to_i % n

end

p values

(PARI) a(n) = fromdigits(vecsort(digits(n), , 4)) % n; \\ Michel Marcus, Mar 04 2021

CROSSREFS

Cf. A004186.

Cf. A319650 (similar in binary).

Sequence in context: A197685 A220510 A078086 * A061467 A103168 A298584

Adjacent sequences:  A337168 A337169 A337170 * A337172 A337173 A337174

KEYWORD

nonn,base

AUTHOR

Simon Strandgaard, Jan 28 2021

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 8 02:26 EDT 2021. Contains 343652 sequences. (Running on oeis4.)