This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A271418 #42 Apr 09 2016 14:01:04
%S A271418 1,3,1,2,1,2,1,2,1,2,2,3,1,3,1,2,2,2,1,2,1,2,2,2,1,3,2,2,2,2,1,4,1,2,
%T A271418 3,4,1,3,1,4,2,4,1,4,1,4,4,4,3,2,2,3,2,2,1,4,2,2,2,2,1,4,1,3,3,2,3,2,
%U A271418 2,3,2,3,1,4,1
%N A271418 Define a sequence by b(1) = n, b(m) = b(m-1) + b(m-1)/A052126(m) + 1; then a(n) is the least m such that b(m) belongs to A270807.
%H A271418 Chai Wah Wu, <a href="/A271418/b271418.txt">Table of n, a(n) for n = 1..10000</a>
%e A271418 the sequence where b(1) = 2 is 2, 4, 7, 9, 13, 15, ...
%e A271418 7 is shared with A270807
%e A271418 there are 3 terms in 2, 4, 7; a(2) = 3
%t A271418 f[n_] := n + n/FactorInteger[n][[-1, 1]] + 1; s = NestList[f, 1, 10^2]; Table[Length@ NestWhileList[f, n, ! MemberQ[s, #] &], {n, 120}] (* _Michael De Vlieger_, Apr 08 2016 *)
%Y A271418 Cf. A052126, A269304, A270807.
%K A271418 nonn,look,hear
%O A271418 1,2
%A A271418 _Cody M. Haderlie_, Apr 06 2016
%E A271418 a(75) corrected by _Chai Wah Wu_, Apr 06 2016