OFFSET
1,2
COMMENTS
See A377120 for a guide to related sequences.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
prime(5) = 11 -> 17 -> 29 -> 53 -> 101 -> 197 -> 389 -> 773 -> 1541 = 23*67, so a(2) = 8.
MAPLE
f:= proc(p) local x, i;
x:= p;
for i from 1 do
x:= 2*x-5;
if not isprime(x) then return i fi;
od
end proc:
map(f, [seq(ithprime(i+3), i=1..100)]); # Robert Israel, Nov 17 2025
MATHEMATICA
Table[p = Prime[n + 3]; c = 1; While[p = 2*p - 5; PrimeQ[p], c++]; c, {n, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Nov 05 2024
EXTENSIONS
Definition edited and a(1) = 1 inserted by Robert Israel, Nov 17 2025
STATUS
approved
