A092026 Duplicate of A084749.
0, 1, 2, 3, 4, 5, 6, 7, 10, 33, 44, 48, 52, 64, 73, 92, 119, 182, 487, 603, 987
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a = {}; Do[If[PrimeQ[n! + NextPrime[n! ]], AppendTo[a, n]], {n, 200}]; a (* Artur Jasinski *) Select[Range[420],PrimeQ[#!+NextPrime[#!]]&] (* Harvey P. Dale, Aug 20 2021 *)
10 is in the sequence because 10! = 3628800, NextPrime(10) = 11 and 3628800 - 11 = 3628789 is prime.
Do[If[PrimeQ[k!-NextPrime[k]], Print[k]], {k, 0, 1425}] (* Farideh Firoozbakht, Feb 26 2004 *)
727 = 6! + 7 belongs to this sequence but 8! +11 is composite and is not a member.
Comments