OFFSET

1,1

COMMENTS

EXAMPLE

MAPLE

f:= proc(p) option remember;

if isprime(p) and isprime(p+4) then 1 + procname(3*p+4) else 0 fi

end proc:

V:= Vector(5): V[1]:= 7: V[3]:= 3: count:= 2:

for p from 13 by 30 while count < 5 do

v:= f(p);

if v > 0 and V[v] = 0 then count:= count+1; V[v]:= p; fi

od:

convert(V, list);

CROSSREFS

KEYWORD

nonn,more

AUTHOR

J. M. Bergot and Robert Israel, Mar 07 2022

STATUS

approved