login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A182262 Least prime p that 6^n - p is prime. 1

%I #20 Nov 05 2020 19:22:33

%S 3,5,5,5,17,7,17,7,7,7,59,19,17,13,7,19,137,13,19,7,23,97,19,89,17,

%T 223,29,109,5,19,5,59,197,5,17,307,59,83,109,157,19,23,43,109,103,7,

%U 23,19,7,269,43,13,5,67,89,83,479,53,53,383,7,83,113,37,5,23

%N Least prime p that 6^n - p is prime.

%H Robert Israel, <a href="/A182262/b182262.txt">Table of n, a(n) for n = 1..2035</a>

%e For n=3 p=5 is the least prime that 6^3-p is prime (211).

%p f:= proc(n) local t,p;

%p t:= 6^n;

%p p:= 2;

%p do

%p p:= nextprime(p);

%p until isprime(t-p);

%p p

%p end proc:

%p map(f, [$1..100]); # _Robert Israel_, Nov 05 2020

%t f[n_] := Block[{p = 2}, While[! PrimeQ[6^n - p], p = NextPrime[p]];

%t p]; Array[f, 60]

%o (PARI) a(n) = my(p = 2); while(!isprime(6^n-p), p = nextprime(p+1)); p; \\ _Michel Marcus_, Mar 23 2016

%Y Cf. A013607, A059614 (n such that a(n)=5).

%K nonn

%O 1,1

%A _Mateusz SzymaƄski_, Apr 21 2012

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 20:05 EDT 2024. Contains 371254 sequences. (Running on oeis4.)