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 A125867 #8 Feb 03 2023 03:16:21
%S A125867 1,2,3,6,12,16,18,27,32,72,81,96,128,192,216,243,432,486,576,648,1728,
%T A125867 2048,2916,3072,6561,8748,23328,24576,34992,55296,78732,104976,124416,
%U A125867 131072,139968,165888,196608,248832,294912,331776,442368,839808
%N A125867 Numbers k such that p=6k+1 is prime and cos(2*Pi/p) is an algebraic number of a 3-smooth degree, but not 2-smooth.
%C A125867 Numbers k such that p=6k+1 is prime and the greatest prime divisor of p-1 is 3.
%t A125867 Do[If[Take[FactorInteger[EulerPhi[6n+1]][[ -1]], 1]=={3} && PrimeQ[6n+1],Print[n]],{n,1,100000}]
%Y A125867 Cf. A024899, A058383, A125866-A125878.
%K A125867 nonn
%O A125867 1,2
%A A125867 _Artur Jasinski_, Dec 13 2006
%E A125867 Edited by _Don Reble_, Apr 24 2007