A178995 Numbers k such that 3^k (mod 2^k) is prime.

3, 5, 7, 9, 11, 20, 28, 62, 161, 204, 471, 505, 881, 1810, 1812, 2506, 3321, 6809, 9272, 15131, 17449, 25250, 27989, 36082, 53309, 64970, 66354, 69646

Offset

1,1

Links

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

Formula

A002380(a(n)) = A178985(n). - Amiram Eldar, Jul 18 2021

Mathematica

fQ[n_] := PrimeQ@ PowerMod[3, n, 2^n]; k = 1; lst = {}; While[k < 15001, If[fQ@ k, AppendTo[lst, k]]; k++]; lst

Prog

(PARI) for(n=1, 10^5, if(ispseudoprime((3^n)%(2^n)), print1(n, ", "))) \\ Felix Fröhlich, Jun 05 2014

Crossrefs

Cf. A002380, A178985.

Sequence in context: A033032 A103148 A211138 * A346604 A071240 A088049

Adjacent sequences: A178992 A178993 A178994 * A178996 A178997 A178998

Keyword

nonn,more

Author

Robert G. Wilson v, Jan 03 2011

Extensions

a(20)-a(23) from Felix Fröhlich, Jun 06 2014

a(24)-a(28) from Amiram Eldar, Jul 18 2021

Status

approved