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 A246352 #6 Aug 26 2014 01:26:08
%S A246352 1,2,3,4,6,8,9,10,12,14,15,16,18,20,21,24,25,26,27,28,30,32,33,35,36,
%T A246352 39,40,42,44,45,48,49,50,52,54,56,57,60,63,64,66,68,69,70,72,75,76,78,
%U A246352 80,81,84,88,90,91,92,93,96,98,99,100,102,104,105,108,110,112,114,116,117,120,124,125,126,128,130,132
%N A246352 Numbers n such that A048673(n) >= n.
%H A246352 Antti Karttunen, <a href="/A246352/b246352.txt">Table of n, a(n) for n = 1..10000</a>
%o A246352 (PARI)
%o A246352 default(primelimit, 2^22);
%o A246352 A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From _Michel Marcus_
%o A246352 A048673(n) = (A003961(n)+1)/2;
%o A246352 isA246352(n) = (A048673(n) >= n);
%o A246352 n = 0; i = 0; while(i < 10000, n++; if(isA246352(n), i++; write("b246352.txt", i, " ", n)));
%o A246352 (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o A246352 (define A246352 (MATCHING-POS 1 1 (lambda (n) (>= (A048673 n) n))))
%Y A246352 Complement: A246351
%Y A246352 Union of A246282 and A048674.
%Y A246352 Subsequence: A029744 (gives the positions of records in A048673).
%Y A246352 Cf. A246372.
%K A246352 nonn
%O A246352 1,2
%A A246352 _Antti Karttunen_, Aug 24 2014