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 A330006 #9 Nov 27 2019 05:31:56
%S A330006 1,2,3,4,6,10,12,18,24,30,42,54,60,78,84,90,114,120,150,168,180,210,
%T A330006 270,294,300,330,390,420,510,546,570,630,750,780,840,990,1050,1170,
%U A330006 1260,1470,1650,1680,1890,2100,2310,2730,3150,3360,3570,3990,4290,4620,5250
%N A330006 Numbers m such that psi(m) > psi(k) for all k < m, where psi is the Dedekind psi function (A001615).
%H A330006 Amiram Eldar, <a href="/A330006/b330006.txt">Table of n, a(n) for n = 1..808</a> (terms below 10^11)
%F A330006 A001615(a(n)) = A210523(n).
%e A330006 The first 6 values of the psi function are 1, 3, 4, 6, 6, 12. The record values, 1, 3, 4, 6, 12 are at positions 1, 2, 3, 4, 6.
%t A330006 psi[1] = 1; psi[n_] := n * Times @@ (1 + 1/FactorInteger[n][[;; , 1]]); seq = {}; pmax = 0; Do[p = psi[n]; If[p > pmax, pmax = p; AppendTo[seq, n]], {n, 1, 10^5}]; seq
%Y A330006 Cf. A001615, A210523 (record values).
%K A330006 nonn
%O A330006 1,2
%A A330006 _Amiram Eldar_, Nov 26 2019