|
Search: id:A165803
|
|
|
| A165803 |
|
Integers n with nonComposite results as n=(n-3)/2. |
|
+0
3
|
| |
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
(77-3)/2=37(prime);(37-3)/2=17(prime);(17-3)/2=7(prime);(7-3)/2=2;no composite numbers smaller then 2 exists,end.
|
|
MATHEMATICA
|
f[n_]:=Module[{k=n}, While[k>3, k=(k-3)/2; If[ !PrimeQ[k], Break[]]]; PrimeQ[k]]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 5!}]; lst
|
|
CROSSREFS
|
Cf. A165801, A165802
Sequence in context: A109660 A075855 A140189 this_sequence A007649 A046152 A057239
Adjacent sequences: A165800 A165801 A165802 this_sequence A165804 A165805 A165806
|
|
KEYWORD
|
nonn,uned,obsc
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 28 2009
|
|
|
Search completed in 0.005 seconds
|
