cp's OEIS Frontend

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.

A167207 Numbers that are not divisible by a smaller number that is a square greater than 1.

This page as a plain text file.
%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