[go: up one dir, main page]

login
A126233
Smallest number k such that (prime(k+1)+prime(k))/2 is odd and divisible by n-th odd prime.
8
4, 6, 8, 25, 12, 88, 78, 19, 121, 24, 29, 46, 31, 126, 186, 153, 156, 379, 197, 139, 280, 132, 285, 380, 155, 63, 334, 1005, 203, 75, 77, 516, 314, 445, 87, 1075, 93, 95, 1872, 254, 697, 1201, 270, 425, 429, 447, 304, 2187, 124, 488, 1153, 128, 335, 136, 547, 742
OFFSET
1,1
LINKS
MATHEMATICA
f[n_] := Block[{k = 1, c}, While[c = (Prime[k + 1] + Prime[k])/2; Mod[c, 2] == 0 || Mod[c, Prime[n + 1]] > 0, k++ ]; k]; Table[f[n], {n, 56}] (* Ray Chandler, Jan 09 2007 *)
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 21 2006
EXTENSIONS
Edited and extended by Ray Chandler, Jan 09 2007
STATUS
approved