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.

3, 5, 7, 11, 13, 17, 19, 23, 31, 43, 47, 61, 73, 107, 109, 113, 181, 199, 467

Offset

1,1

Comments

Is this sequence finite?

Links

Table of n, a(n) for n=1..19.

Mathematica

b[n_] := Table[If[PrimeQ[i], 1, 0], {i, 1, n}];
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 *)
Flatten[Position[tab, 1]]

Crossrefs

Cf. A337802, A010051, A299111.

Sequence in context: A306084 A060770 A246568 * A120334 A000978 A128925

Adjacent sequences: A338129 A338130 A338131 * A338133 A338134 A338135

Keyword

nonn,more

Author

Andres Cicuttin, Oct 11 2020

Status

approved