|
|
A299073
|
|
Indices of records in A243145.
|
|
2
|
|
|
1, 3, 5, 19, 21, 41, 59, 173, 241, 269, 326, 341, 431, 491, 4406, 6641, 10946, 45386, 54206, 81611, 94706, 362351, 486281, 1099766, 1197026, 1220126, 1439756, 1597361, 1685276, 2000246, 2405051, 6550946, 9996731, 15410111, 34120511, 39283856, 41437226, 47108981
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
f:= proc(n) local k;
for k from (n mod 2)+1 by 2 do
if isprime(n+k) and isprime(n+k^2) then return k fi
od
end proc:
f(1):= 1:
vmax:= 0: recinds:= NULL:
for n from 1 to 10^7 do
v:= f(n);
if v > vmax then
vmax:= v; recinds:= recinds, n;
fi
od:
recinds;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|