A077960 - OEIS

A077960

Trajectory of 18 under iteration of the map k -> A087712(k).

18, 122, 118, 117, 226, 130, 136, 1117, 187, 57, 28, 114, 128, 1111111, 52628, 111748, 114663, 212174, 110111, 35131, 81414, 122615, 33341, 4584, 111243, 25475, 33171, 21339, 22351, 41127, 21621, 2920, 111321, 2224811, 223249, 66216, 11121124, 11433636, 112222222214

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

COMMENTS

a(n) = 1 for n >= 111.

LINKS

N. J. A. Sloane, Table of n, a(n) for n = 0..120

MATHEMATICA

A087712[n_] := If[n == 1, 1, FromDigits[Flatten[IntegerDigits[PrimePi[ConstantArray @@@ FactorInteger[n]]]]]];

NestList[A087712, 18, 111] (* Paolo Xausa, Aug 13 2026 *)

CROSSREFS

Cf. A087712, A098282, A144914, A077919.