

A177330


Least k>0 such that (p*2^k1)/3 is prime, or zero if no k exists, where p=prime(n).


2



3, 0, 1, 4, 1, 2, 1, 4, 3, 1, 2, 4, 3, 4, 1, 9107, 3, 6, 2, 1, 2, 4, 7, 1, 6, 1, 2, 1, 32, 11, 4, 3, 45, 24, 3, 6, 8, 16, 21, 3, 29, 2, 1, 2, 1, 4, 2, 66, 1, 8, 7, 5, 10, 1, 5, 3, 1, 14, 18, 13, 6, 59, 2, 3, 4, 1, 18, 2, 5, 4, 3, 1, 6, 5016, 8, 3, 15, 14, 3, 12, 3, 46, 5, 2, 4, 3, 5, 4, 1, 2, 1, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

When a(n) is not zero, a(n) is even if p=1 (mod 6); a(n) is odd if p=5 (mod 6). If we let q=(p*2^k1)/3 be a prime generated by p for some k>0, then the first prime number after q in the Collatz iteration of q is p. When k=1, q is less than p. The primes, other than 3, for which a(n)=0 are in A177331.


LINKS

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


MATHEMATICA

Table[p=Prime[n]; If[p==3, k=0, k=1; While[q=(p*2^k1)/3; k<10000 && !PrimeQ[q], k++ ]]; k, {n, 100}]


CROSSREFS

Cf. A177000
Sequence in context: A238709 A245120 A226912 * A197126 A256987 A048963
Adjacent sequences: A177327 A177328 A177329 * A177331 A177332 A177333


KEYWORD

nonn


AUTHOR

T. D. Noe, May 08 2010


STATUS

approved



