|
%I #15 Dec 13 2023 08:35:47
%S 3,6,9,10,12,21,24,30,32,33,34,36,39,41,45,48,52,54,60,63,74,81,84,93,
%T 99,103,112,114,118,120,122,123,125,129,130,132,135,136,141,146,153,
%U 156,162,165,171,174,177,183,190,192,196
%N Integers of the form (prime(m) + prime(m+1))/10 for some m.
%C Corresponding m's are: 6, 10, 14, 15, 17, 27, 30, 35, 37.
%C Of interest are sequences with values of k other than k = 10.
%C Apparently k may be of arbitrary value.
%C Smallest integers of the form (prime(m) + prime(m+1)/k for k = 1..20 are: 5, 4, 4, 2, 6, 2, 6, 1, 2, 3, 18, 1, 4, 3, 2, 7, 4, 1, 8, 3.
%e a(1) = 3: m = 6 and (prime(6) + prime(6))/10 = (13+17)/10 = 3,
%e a(2) = 6: m = 10 and (prime(10) + prime(11))/10 = (29+31)/10 = 6.
%t Select[Table[(Prime[m] + Prime[m + 1])/10, {m, 250}], IntegerQ] (* _Alonso del Arte_, Feb 03 2016 *)
%o (PARI) lista(nn) = {for(n=1, nn, if((prime(n) + prime(n+1)) % 10 == 0, print1((prime(n) + prime(n+1)) / 10, ", ")));} \\ _Altug Alkan_, Feb 04 2016
%Y Cf. A001043 (superset).
%K nonn
%O 1,1
%A _Zak Seidov_, Feb 01 2016
|
