The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A020229

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A020229

Strong pseudoprimes to base 3.
(history; published version)

#44 by OEIS Server at Wed Feb 07 17:19:44 EST 2018

LINKS

Charles R Greathouse IV, <a href="/A020229/b020229_1.txt">Table of n, a(n) for n = 1..24767</a> (first 752 terms from R. J. Mathar)

#43 by Charles R Greathouse IV at Wed Feb 07 17:19:44 EST 2018

STATUS

editing

approved

Discussion

Wed Feb 07

17:19

OEIS Server: Installed new b-file as b020229.txt.  Old b-file is now b020229_1.txt.

#42 by Charles R Greathouse IV at Wed Feb 07 17:19:41 EST 2018

LINKS

Charles R. J. Mathar, Greathouse IV, <a href="/A020229/b020229_1.txt">Table of n, a(n) for n = 1..24767</a> (first 752</a> terms from R. J. Mathar)

CROSSREFS

Cf. A001262, A072276, A056915, A074773, A005935.

STATUS

approved

editing

#41 by Joerg Arndt at Sat Oct 07 02:40:46 EDT 2017

STATUS

proposed

approved

#40 by Michel Marcus at Sat Oct 07 02:04:20 EDT 2017

STATUS

editing

proposed

#39 by Michel Marcus at Sat Oct 07 02:04:15 EDT 2017

LINKS

<a href="/index/Ps#pseudoprimes">Index entries for sequences related to pseudoprimes</a>

STATUS

reviewed

editing

#38 by Wesley Ivan Hurt at Fri Oct 06 23:31:28 EDT 2017

STATUS

proposed

reviewed

#37 by Jon E. Schoenfield at Fri Oct 06 23:02:56 EDT 2017

STATUS

editing

proposed

#36 by Jon E. Schoenfield at Fri Oct 06 23:02:52 EDT 2017

MATHEMATICA

sppQ[n_?EvenQ, _] := False; sppQ[n_?PrimeQ, _] := False; sppQ[n_, b_] := (s = IntegerExponent[n-1, 2]; d = (n-1)/2^s; If[PowerMod[b, d, n] == 1, Return[True], Do[If[PowerMod[b, d*2^r, n] == n-1, Return[True]], {r, 0, s-1}]]); A020229 = {}; lst = {}; k = 3; While[k < 500000, If[sppQ[k, 3], Print[k]; AppendTo[lst, k]]; k += 2]; lst (* Jean-François Alcover, Oct 20 2011, after _R. J. Mathar _ *)

STATUS

approved

editing

#35 by Charles R Greathouse IV at Tue Jun 13 02:12:06 EDT 2017

STATUS

editing

approved