A341632 Primes in A073837.
5, 31, 41, 59, 139, 281, 281, 281, 311, 479, 593, 1153, 1153, 1283, 1559, 1559, 2213, 2213, 2213, 3167, 3167, 2963, 2963, 3067, 3067, 3181, 3181, 5153, 6779, 7451, 9463, 9463, 9859, 10061, 10061, 10061, 10061, 10889, 17539, 17539, 17539, 17539, 22229, 22229, 22229, 30869, 30869, 30869, 32717
Offset: 1
Keywords
Examples
a(3) = A073837(A341631(3)) = A073837(9) = 41.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
R:= 5: S:= [2, 3]: s:= 5: q:= 5: count:= 1: for n from 3 while count < 100 do if n = S[1]+1 then S:= S[2..-1]; s:= s-n+1 fi; if q <= 2*n then S:= [op(S), q]; s:= s+q; q:= nextprime(q) fi; if s mod n = 0 then count:= count+1; R:= R, s fi; od: R;
Comments