|
|
A095193
|
|
Common differences of the arithmetic progressions corresponding to A095181.
|
|
1
|
|
|
1, 11, 1, 7, 11, 47, 25, 17, 52, 23, 73, 97, 41, 61, 151, 131, 157, 139, 89, 239, 451, 281, 371, 509, 283, 661, 263, 841, 587, 839, 1339, 671, 1171, 499, 1283, 289, 1903, 743, 1621, 2609, 359, 2533, 1751, 2993, 1153, 6211, 881, 3011, 3613, 3631, 2771, 6869, 1553, 5801, 1159, 4603, 2311, 1141, 9097
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,2
|
|
COMMENTS
|
How many terms are even?
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
(* b = A095182 *) b[n_] := For[r = 1, True, r++, ro = Table[Prime[n] + k*r, {k, 0, n - 1}]; If[AllTrue[Rest[ro], CompositeQ[#] && ! Divisible[#, Prime[n]] &], Return[ro[[-1]]]]];
a[n_] := (b[n] - Prime[n])/(n - 1);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|