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!)
A295641 Smallest k not divisible by 7 such that k*7^n + 1 is prime. 3
4, 4, 4, 6, 10, 4, 4, 36, 6, 4, 4, 82, 36, 10, 24, 90, 4, 48, 12, 16, 118, 10, 72, 16, 94, 18, 24, 150, 76, 58, 34, 40, 156, 34, 52, 166, 16, 4, 36, 90, 120, 78, 34, 36, 10, 244, 60, 102, 18, 114, 172, 48, 94, 10, 66, 396, 234, 240, 166 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
The ratio (Sum_(n=1..t) a(n)) / (Sum_(n=1..t) n) tends to log(7) as t increases.
LINKS
MATHEMATICA
Array[Block[{k = 2}, While[Or[Divisible[k, 7], ! PrimeQ[k 7^# + 1]], k++]; k] &, 59] (* Michael De Vlieger, Dec 18 2017 *)
PROG
(PARI) a(n) = {k = 1; while (!isprime(k*7^n+1), k++; if (! (k%7), k++)); k; } \\ Michel Marcus, Nov 25 2017
CROSSREFS
Sequence in context: A229630 A141466 A171743 * A171815 A023958 A137751
KEYWORD
nonn
AUTHOR
Pierre CAMI, Nov 25 2017
STATUS
approved

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 29 07:27 EDT 2024. Contains 371265 sequences. (Running on oeis4.)