A299073 - OEIS

%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