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 A167207 #16 Jul 03 2025 01:02:36 %S A167207 1,2,3,4,5,6,7,9,10,11,13,14,15,17,19,21,22,23,25,26,29,30,31,33,34, %T A167207 35,37,38,39,41,42,43,46,47,49,51,53,55,57,58,59,61,62,65,66,67,69,70, %U A167207 71,73,74,77,78,79,82,83,85,86,87,89,91,93,94,95,97,101,102,103,105,106 %N A167207 Numbers that are not divisible by a smaller number that is a square greater than 1. %H A167207 Amiram Eldar, <a href="/A167207/b167207.txt">Table of n, a(n) for n = 1..10000</a> %e A167207 14 is a term because there is no square strictly between 1 and 14 that divides 14. %t A167207 q[n_] := Module[{e = FactorInteger[n][[;;, 2]]}, e == {2} || AllTrue[e, # == 1 &]]; Select[Range[120], q] (* _Amiram Eldar_, Jul 02 2025 *) %o A167207 (PARI) isok(n) = {fordiv (n, d, if (issquare(d) && (d>1) && (d<n), return (0))); return (1);} \\ _Michel Marcus_, Jun 08 2013 %Y A167207 The union of A005117 (squarefree numbers) and A001248 (squares of primes). %K A167207 nonn,easy %O A167207 1,2 %A A167207 _Lee A. Newberg_, Oct 30 2009