|
|
|
|
4, 7, 13, 23, 37, 53, 67, 97, 103, 131, 139, 173, 181, 193, 223, 233, 263, 277, 307, 337, 409, 421, 457, 509, 563, 593, 613, 631, 653, 797, 811, 823, 853, 877, 1013, 1021, 1039, 1051, 1087, 1129, 1223, 1259, 1283, 1297, 1307, 1423, 1447, 1471, 1483, 1601
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
local k, kmx, a ;
kmx := 0 ;
a := k ;
end if;
end do:
a ;
end proc:
|
|
MATHEMATICA
|
f[n_] := Mod[4*((n - 1)! + 1) + n, n*(n + 2)];
pp = Select[Prime[Range[300]], PrimeQ[# + 2] & ];
a[n_] := MaximalBy[Range[pp[[n]], pp[[n + 1]]], f];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|