login
A165801
f(n), f(f(n)), ... are all prime, where f(n) = (n-1)/2. Stop when f(...f(n)...) is less than 4.
3
1, 2, 3, 5, 7, 11, 15, 23, 47, 95
OFFSET
1,2
COMMENTS
There are no more terms since 95 is composite.
EXAMPLE
(95-1)/2=47(prime); (47-1)/2=23(prime); (23-1)/2=11(prime); (11-1)/2=5(prime); (5-1)/2=2(prime); no composite numbers smaller than 2 exist, end. (47-1)/2=23(prime);(23-1)/2=11(prime); (11-1)/2=5(prime); (5-1)/2=2; no composite numbers smaller than 2 exist, end.
MATHEMATICA
f[n_]:=Module[{k=n}, While[k>3, k=(k-1)/2; If[ !PrimeQ[k], Break[]]]; PrimeQ[k]]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 5!}]; lst
CROSSREFS
Sequence in context: A326591 A177485 A218023 * A239054 A241725 A022480
KEYWORD
nonn,easy,fini,full
AUTHOR
EXTENSIONS
Corrected and edited by Charles R Greathouse IV, Oct 05 2009
STATUS
approved