%I #12 Jul 25 2024 13:53:15

%S 1,2,3,4,7,11,12,27,32,119,127,136,611,755,872,1676,5363,15623,27564,

%T 42679,54576,74123,91043,104331

%N Indices of primes in A100683.

%C a(25) > 2*10^5.

%F A100683(a(n)) = A232542(n). - _Arthur O'Dwyer_, 25 Jul 2024

%t 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]

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

%K nonn

%O 1,2

%A _Robert Price_, Nov 25 2013

%E Name clarified by _Arthur O'Dwyer_, Jul 25 2024