[go: up one dir, main page]
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!)
Search: a087489 -id:a087489
Displaying 1-5 of 5 results found. page 1
     Sort: relevance | references | number | modified | created      Format: long | short | data
A087490 Primes p such that 4^p - 3^p is composite. +10
5
5, 11, 13, 19, 23, 29, 31, 37, 41, 43, 47, 53, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 293, 307 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Table of n, a(n) for n=1..57.
PROG
(PARI) apmb(a, b, n) = { forprime(x=2, n, y=a^x-b^x; if(!ispseudoprime(y), print1(x", "); ) ) }
CROSSREFS
Cf. A005061.
Primes p such that k^p - (k-1)^p is composite: A087489 (k=3), this sequence (k=4), A087685 (k=5), A087749 (k=6), A087759 (k=7), A087763 (k=8), A087894 (k=9), A087895 (k=10).
KEYWORD
nonn
AUTHOR
Cino Hilliard, Oct 26 2003
EXTENSIONS
Offset corrected by Mohammed Yaseen, Jul 18 2022
STATUS
approved
A087759 Primes p such that 7^p - 6^p is composite. +10
5
5, 11, 13, 17, 19, 23, 31, 37, 43, 47, 53, 59, 61, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Table of n, a(n) for n=1..56.
MATHEMATICA
Select[Prime[Range[70]], CompositeQ[7^#-6^#]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 12 2019 *)
PROG
(PARI) apmb(a, b, n) = { forprime(x=2, n, y=a^x-b^x; if(!ispseudoprime(y), print1(x", "); ) ) }
CROSSREFS
Cf. A016169.
Primes p such that k^p - (k-1)^p is composite: A087489 (k=3), A087490 (k=4), A087685 (k=5), A087749 (k=6), this sequence (k=7), A087763 (k=8), A087894 (k=9), A087895 (k=10).
KEYWORD
nonn
AUTHOR
Cino Hilliard, Oct 26 2003
EXTENSIONS
Offset corrected by Mohammed Yaseen, Jul 18 2022
STATUS
approved
A087763 Primes p such that 8^p - 7^p is composite. +10
5
2, 3, 5, 13, 19, 23, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 83, 89, 97, 101, 103, 107, 109, 127, 137, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Table of n, a(n) for n=1..57.
MATHEMATICA
Select[Prime[Range[70]], CompositeQ[8^#-7^#]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 15 2018 *)
PROG
(PARI) apmb(a, b, n) = { forprime(x=2, n, y=a^x-b^x; if(!ispseudoprime(y), print1(x", "); ) ) }
CROSSREFS
Cf. A016177.
Primes p such that k^p - (k-1)^p is composite: A087489 (k=3), A087490 (k=4), A087685 (k=5), A087749 (k=6), A087759 (k=7), this sequence (k=8), A087894 (k=9), A087895 (k=10).
KEYWORD
nonn
AUTHOR
Cino Hilliard, Oct 26 2003
EXTENSIONS
Offset corrected by Mohammed Yaseen, Jul 18 2022
STATUS
approved
A087894 Primes p such that 9^p - 8^p is composite. +10
5
3, 5, 11, 13, 17, 19, 23, 37, 41, 43, 47, 53, 59, 61, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Table of n, a(n) for n=1..57.
MATHEMATICA
Select[Prime[Range[100]], !PrimeQ[9^#-8^#]&] (* Harvey P. Dale, May 01 2011 *)
PROG
(PARI) apmb(a, b, n) = { forprime(x=2, n, y=a^x-b^x; if(!ispseudoprime(y), print1(x", "); ) ) }
CROSSREFS
Cf. A016185.
Primes p such that k^p - (k-1)^p is composite: A087489 (k=3), A087490 (k=4), A087685 (k=5), A087749 (k=6), A087759 (k=7), A087763 (k=8), this sequence (k=9), A087895 (k=10).
KEYWORD
nonn
AUTHOR
Cino Hilliard, Oct 26 2003
EXTENSIONS
Offset corrected by Mohammed Yaseen, Jul 19 2022
STATUS
approved
A087895 Primes p such that 10^p - 9^p is composite. +10
5
5, 13, 17, 23, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Table of n, a(n) for n=1..56.
MATHEMATICA
Select[Prime[Range[100]], !PrimeQ[10^#-9^#]&] (* Harvey P. Dale, Jun 21 2012 *)
PROG
(PARI) apmb(a, b, n) = { forprime(x=2, n, y=a^x-b^x; if(!ispseudoprime(y), print1(x", "); ) ) }
CROSSREFS
Cf. A016189, A062576.
Primes k such that x^k - (x-1)^k is composite: A087489 (x=3), A087490 (x=4), A087685 (x=5), A087749 (x=6), A087759 (x=7), A087763 (x=8), A087894 (x=9), this sequence (x=10).
KEYWORD
nonn
AUTHOR
Cino Hilliard, Oct 26 2003
EXTENSIONS
Offset corrected by Mohammed Yaseen, Jul 19 2022
STATUS
approved
page 1

Search completed in 0.010 seconds

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 August 29 13:17 EDT 2024. Contains 375517 sequences. (Running on oeis4.)