|
|
A251544
|
|
List of values of A098550(n+2) for those n for which A098550(n) is a prime.
|
|
10
|
|
|
4, 9, 25, 21, 33, 26, 85, 95, 115, 58, 93, 111, 82, 129, 329, 265, 177, 427, 335, 213, 365, 237, 581, 267, 679, 505, 309, 321, 545, 565, 381, 655, 411, 973, 1043, 755, 785, 1141, 835, 519, 895, 1267, 1337, 579, 985, 597, 633, 1115, 1135, 687, 699, 1673, 723, 753
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
max = 600;
f[lst_] := Block[{k = 4}, While[GCD[lst[[-2]], k] == 1 || GCD[lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]];
A098550 = Nest[f, {1, 2, 3}, max - 3];
sel = Select[Transpose[{Range[max], A098550}], PrimeQ[#[[2]]]&][[All, 1]]+2;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|