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 A338132 #10 Nov 10 2020 23:00:07
%S A338132 3,5,7,11,13,17,19,23,31,43,47,61,73,107,109,113,181,199,467
%N A338132 List of lengths of subsequences of the characteristic function of those primes for which the minimum cyclic self-convolution is 1. Also n such that A337802(n)=1.
%C A338132 Is this sequence finite?
%t A338132 b[n_] := Table[If[PrimeQ[i], 1, 0], {i, 1, n}];
%t A338132 tab = Table[Min@Table[b[n].RotateRight[Reverse[b[n]], j], {j, 0, n - 1}], {n, 1, 2^12}]; (* to explore the first 2^12 subsequences *)
%t A338132 Flatten[Position[tab, 1]]
%Y A338132 Cf. A337802, A010051, A299111.
%K A338132 nonn,more
%O A338132 1,1
%A A338132 _Andres Cicuttin_, Oct 11 2020