[go: up one dir, main page]

login
Revision History for A252894 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Primes that are congruent to both 11 mod 111 and 111 mod 1111.
(history; published version)
#19 by Harvey P. Dale at Fri Jan 18 14:21:52 EST 2019
STATUS

editing

approved

#18 by Harvey P. Dale at Fri Jan 18 14:21:49 EST 2019
MATHEMATICA

Select[Prime[Range[2*10^6]], Mod[#, 111]==11&&Mod[#, 1111]==111&] (* or *) Select[12332+(123321*Range[1, 300, 2]), PrimeQ] (* Harvey P. Dale, Jan 18 2019 *)

STATUS

approved

editing

#17 by Harvey P. Dale at Fri Jan 18 14:19:46 EST 2019
STATUS

editing

approved

#16 by Harvey P. Dale at Fri Jan 18 14:19:43 EST 2019
LINKS

Harvey P. Dale, <a href="/A252894/b252894.txt">Table of n, a(n) for n = 1..1000</a>

STATUS

approved

editing

#15 by Harvey P. Dale at Fri Jan 18 14:17:55 EST 2019
STATUS

editing

approved

#14 by Harvey P. Dale at Fri Jan 18 14:17:52 EST 2019
MATHEMATICA

Select[Prime[Range[2*10^6]], Mod[#, 111]==11&&Mod[#, 1111]==111&] (* or *) Select[12332+(123321*Range[300]), PrimeQ] (* Harvey P. Dale, Jan 18 2019 *)

STATUS

approved

editing

#13 by Michel Marcus at Fri Jan 02 03:13:58 EST 2015
STATUS

reviewed

approved

#12 by Robert Israel at Thu Jan 01 15:30:46 EST 2015
STATUS

proposed

reviewed

#11 by Harvey P. Dale at Thu Jan 01 15:28:44 EST 2015
STATUS

editing

proposed

#10 by Harvey P. Dale at Thu Dec 25 10:36:10 EST 2014
MATHEMATICA

nn=40*10^6; Intersection[Select[Range[111, nn, 1111], PrimeQ], Select[ Range[ 11, nn, 111], PrimeQ]] (* or *) Select[Range[12332, 33*10^6, 123321], PrimeQ]

STATUS

approved

editing

Discussion
Thu Jan 01
15:24
OEIS Server: This sequence has not been edited or commented on for a week
yet is not proposed for review.  If it is ready for review, please
visit https://oeis.org/draft/A252894 and click the button that reads
"These changes are ready for review by an OEIS Editor."

Thanks.
  - The OEIS Server