login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A165805 Integers that start a trajectory x -> A008619(x) which contains only primes until terminating at 2 or 3. 0
2, 3, 4, 5, 6, 7, 10, 11, 14, 15, 22, 23, 46, 47, 94, 95 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Starting from n, the trajectory of repeated application of x -> x - ceiling(x/2), as represented by A008619, is monitored until it reaches 2 or 3. If the trajectory (ignoring the initial n) contains only primes, n is added to the sequence.

We are essentially requiring a chain of safe primes A005385 down to 2 or 3, in search of reverse Cunningham chains of the first type.

There are no more terms between 95 and 10000000. - R. J. Mathar, Sep 29 2009

No more terms between 95 and 1500000000 (i.e., 1.5*10^9). - Owen Whitby, Oct 16 2009

There are no terms larger than 95, which can be seen by following the chains up from 2 and 3. The only primes that go to 2 or 3 via the map x -> x - ceiling(x/2) are 5 and 7. The only prime that goes to 5 or 7 via that map is 11. The only prime that goes to 11 is 23, the only prime that goes to 23 is 47, and no prime number maps to 47 (since 95 is not prime). Thus the only numbers that can produce prime chains in this way are numbers x such that x-ceiling(x/2) is in {1,2,3,5,7,11,23,47}. - Nathaniel Johnston, Nov 22 2010

LINKS

Table of n, a(n) for n=1..16.

EXAMPLE

The trajectories of starting with numbers from 91 to 96 are

  91 -> 45 -> 22 -> 11 -> 5 -> 2

  92 -> 46 -> 23 -> 11 -> 5 -> 2

  93 -> 46 -> 23 -> 11 -> 5 -> 2

  94 -> 47 -> 23 -> 11 -> 5 -> 2

  95 -> 47 -> 23 -> 11 -> 5 -> 2

  96 -> 48 -> 24 -> 12 -> 6 -> 3

The trajectories starting at 91 to 93 and 96 contain composites 45, 46 or 48 and their initial numbers do not qualify for the sequence. The trajectories starting at 94 and 95 contain only primes (47, 23, 11, 5, 2) and their two initial integers 94 and 95 are added to the sequence.

MATHEMATICA

f[n_]:=Module[{k=n}, While[k>3, k=k-Ceiling[k/2]; If[ !PrimeQ[k], Break[]]]; PrimeQ[k]]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 7!}]; lst

CROSSREFS

Cf. A008619, A165801, A165802, A165803.

Sequence in context: A251595 A050725 A080571 * A319975 A307625 A165722

Adjacent sequences:  A165802 A165803 A165804 * A165806 A165807 A165808

KEYWORD

nonn,fini,full

AUTHOR

Vladimir Joseph Stephan Orlovsky, Sep 28 2009

EXTENSIONS

Edited by R. J. Mathar, Sep 29 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 16 21:46 EST 2020. Contains 331975 sequences. (Running on oeis4.)