The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A090097

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

A090097

Bases n such that the smallest prime-power-pseudoprime to base n is 9.
(history; published version)

#15 by Bruno Berselli at Mon Sep 09 11:58:04 EDT 2019

STATUS

reviewed

approved

#14 by Joerg Arndt at Mon Sep 09 11:55:26 EDT 2019

STATUS

proposed

reviewed

#13 by Amiram Eldar at Mon Sep 09 09:36:02 EDT 2019

STATUS

editing

proposed

#12 by Amiram Eldar at Mon Sep 09 09:28:16 EDT 2019

MATHEMATICA

pspQ[n_, b_] := CompositeQ[n] && PowerMod[b, n - 1, n ] == 1 ; aQ[n_]:=pspQ[9, n] && AllTrue[{4, 8}, !pspQ[#, n] &]; Select[Range[1000], aQ] (* _Amiram Eldar_, Sep 09 2019 *)

#11 by Amiram Eldar at Mon Sep 09 09:25:41 EDT 2019

DATA

8, 10, 19, 26, 28, 35, 44, 46, 55, 62, 64, 71, 80, 82, 91, 98, 100, 107, 116, 118, 127, 134, 136, 143, 152, 154, 163, 170, 172, 179, 188, 190, 199, 206, 208, 215, 224, 226, 235, 242, 244, 251, 260, 262, 271, 278, 280, 287, 296, 298, 307, 314, 316, 323, 332, 334

COMMENTS

Values of x such that A090096(x) = 9.

LINKS

Amiram Eldar, <a href="/A090097/b090097.txt">Table of n, a(n) for n = 1..10000</a>

MATHEMATICA

pspQ[n_, b_] := CompositeQ[n] && PowerMod[b, n - 1, n ] == 1 ; aQ[n_]:=pspQ[9, n] && AllTrue[{4, 8}, !pspQ[#, n] &]; Select[Range[1000], aQ]

KEYWORD

nonn,more,changed

EXTENSIONS

More terms from Amiram Eldar, Sep 09 2019

STATUS

approved

editing

#10 by Peter Luschny at Fri Aug 30 08:00:48 EDT 2019

STATUS

reviewed

approved

#9 by Joerg Arndt at Fri Aug 30 05:22:04 EDT 2019

STATUS

proposed

reviewed

#8 by Joerg Arndt at Fri Aug 30 05:22:00 EDT 2019

STATUS

editing

proposed

#7 by Joerg Arndt at Fri Aug 30 05:21:56 EDT 2019

COMMENTS

Values of x such that A090096(x) = 9.

FORMULA

Solutions to Min{x; Mod[ -1+x^(9-1)}. Values of x such that A090096(x)=9.

STATUS

proposed

editing

#6 by Michel Marcus at Fri Aug 30 05:10:45 EDT 2019

STATUS

editing

proposed