A232543 Indices of primes in A100683.

1, 2, 3, 4, 7, 11, 12, 27, 32, 119, 127, 136, 611, 755, 872, 1676, 5363, 15623, 27564, 42679, 54576, 74123, 91043, 104331

Offset: 1

Author

Robert Price, Nov 25 2013

Keywords

• nonn

Comments

a(25) > 2*10^5.

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542.

Programs

Mathematica

a={-1,2,2};Print[1],Print[2];For[n=3,n<=1000,n++,sum=Plus@@a;If[PrimeQ[sum],Print[n]];a=RotateLeft[a]; a[[3]]=sum]

Formula

A100683(a(n)) = A232542(n). - Arthur O'Dwyer, 25 Jul 2024

Extensions

Name clarified by Arthur O'Dwyer, Jul 25 2024