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!)
A290163 Primes p such that A288814(4*p) - A288814(3*p) = 7. 2
2, 19, 29, 59, 79, 89, 131, 149, 151, 389, 479, 499, 521, 571, 631, 659, 701, 739, 919, 941, 971, 1069, 1279, 1289, 1361, 1381, 1451, 1471, 1489, 1669, 1949, 2069, 2089, 2131, 2549, 2609, 2749, 2791, 3011, 3109, 3181, 3251, 3361, 3389, 3539, 3581, 3659, 4049, 4091, 4139 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Proper subset of A290164.
Terms of A290164 not in this sequence include 5, 11, 61, 191, 431, 541, 1181, 3571, ... corresponding to primes p such that A(4*p) - A(3*p) = A(3*p) - 1, where A=A288814. Examples: A(4*5) - A(3*5) = 51 - 26 = 25; A(4*541) - A(3*541) = 6483 - 3242 = 3241.
LINKS
EXAMPLE
A288814(4*2) - A288814(3*2) = 15 - 8 = 7, therefore prime 2 is in the sequence;
A288814(4*19) - A288814(3*19) = 219 - 212 = 7, therefore prime 19 is a term.
MATHEMATICA
With[{s = Array[Boole[CompositeQ@ #] Total@ Flatten@ Map[ConstantArray[#1, #2] & @@ # &, FactorInteger[#]] &, 10^5]}, Select[Prime@ Range[600], Function[p, FirstPosition[s, _?(# == 4 p &)][[1]] - FirstPosition[s, _?(# == 3 p &)][[1]] == 7]]] (* Michael De Vlieger, Jul 23 2017 *)
CROSSREFS
Sequence in context: A083689 A102617 A365235 * A284496 A120276 A006962
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Altug Alkan, Jul 23 2017
Edited by Robert Israel, Jul 24 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 28 07:46 EDT 2024. Contains 371235 sequences. (Running on oeis4.)