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 A188833 #19 Feb 06 2019 12:05:56
%S A188833 23,47,53,59,79,83,107,163,167,173,179,223,227,233,257,263,269,277,
%T A188833 283,293,317,347,353,359,367,373,383,389,401,431,439,443,457,467,479,
%U A188833 499,503,509,557,563,569,587,593,607,643,647,653,677,683,691,719,727,733
%N A188833 Primes p such that p^2 is not in A188836.
%t A188833 A188550[n_] := Max @ Table[Length @ Select[Table[n-d, {d, Divisors[n-k] // Rest}], Mod[#, k] == 0&], {k, 2, Floor[Sqrt[n]]}]; A188794[n_] := Module[{k=2, a1=A188550[n]}, While[DivisorSum[n-k,1&, #>1&&Divisible[n-#,k]&] != a1, k++];k]; s={}; Do[p=Prime[n]; p2=p^2; If[aa[p2]^2 != p2, AppendTo[s,p]], {n, 1, 130}]; s (* _Amiram Eldar_, Feb 06 2019 after _Jean-François Alcover_ at A188550 *)
%Y A188833 Cf. A188550, A188579, A188794, A188836.
%K A188833 nonn
%O A188833 1,1
%A A188833 _Vladimir Shevelev_, Apr 12 2011
%E A188833 More terms from _Amiram Eldar_, Feb 06 2019