|
%I #12 Jan 04 2024 15:11:05
%S 1,3,5,19,21,41,59,173,241,269,326,341,431,491,4406,6641,10946,45386,
%T 54206,81611,94706,362351,486281,1099766,1197026,1220126,1439756,
%U 1597361,1685276,2000246,2405051,6550946,9996731,15410111,34120511,39283856,41437226,47108981
%N Indices of records in A243145.
%H Chai Wah Wu, <a href="/A299073/b299073.txt">Table of n, a(n) for n = 1..51</a>
%p f:= proc(n) local k;
%p for k from (n mod 2)+1 by 2 do
%p if isprime(n+k) and isprime(n+k^2) then return k fi
%p od
%p end proc:
%p f(1):= 1:
%p vmax:= 0: recinds:= NULL:
%p for n from 1 to 10^7 do
%p v:= f(n);
%p if v > vmax then
%p vmax:= v; recinds:= recinds, n;
%p fi
%p od:
%p recinds;
%Y Cf. A243145, A299112.
%K nonn
%O 1,2
%A _Robert Israel_, Feb 02 2018
%E a(34)-a(38) from _Chai Wah Wu_, Sep 10 2019
|
