A316679 - OEIS

%I #15 Jul 11 2018 06:42:11

%S 907,5611,4318,26914,12238,76414,34738,138913,555613,2222413,13890013,

%T 55560013,222240013,1389000013,5556000013,22224000013,138900000013,

%U 555600000013,2222400000013,13890000000013,55560000000013,222240000000013,1389000000000013,5556000000000013,22224000000000013

%N The integer 907 and its infinite growing pattern (when iterating the rule explained in A316650 and hereunder, in the Comment section).

%C It is conjectured, when iterating the idea explained in A316650 ("Result when n is divided by the sum of its digits and the resulting integer is concatenated to the remainder"), that all integers will end either on a fixed point (the first ones are listed in A052224) or grow forever (like 907 or 1358).

%e 907/16 gives 56 with remainder 11;

%e 5611/13 gives 431 with remainder 8;

%e 4318/16 gives 269 with remainder 14;

%e 26914/22 gives 122 with remainder 38;

%e . . .

%e Now from 2222413 on, starts a devilish 0-inflation "from the middle" in a ternary cycle:

%e 2222413

%e 13890013

%e 55560013

%e 222240013

%e 1389000013

%e 5556000013

%e 22224000013

%e 138900000013

%e 555600000013

%e 2222400000013

%e 13890000000013

%e 55560000000013

%e 222240000000013

%e 1389000000000013

%e 5556000000000013

%e 22224000000000013

%e 138900000000000013

%e 555600000000000013

%e 2222400000000000013

%e . . .

%e We have:

%e 1389(k zeros)13

%e 5556(k zeros)13

%e 22224(k zeros)13

%e then:

%e 1389(k+2 zeros)13

%e 5556(k+2 zeros)13

%e 22224(k+2 zeros)13

%e then:

%e 1389(k+4 zeros)13

%e 5556(k+4 zeros)13

%e 22224(k+4 zeros)13

%e Etc.

%t NestList[FromDigits@ Flatten[IntegerDigits@ # & /@ QuotientRemainder[#, Total[IntegerDigits@ #]]] &, 907, 24] (* _Michael De Vlieger_, Jul 10 2018 *)

%Y Cf. A316650 (where the rule is explained) and A316680 (for the number 1358 that generates a similar pattern).

%K base,nonn

%O 1,1

%A _Eric Angelini_ and _Jean-Marc Falcoz_, Jul 10 2018