|
Search: id:A090085
|
|
|
| A090085 |
|
Smallest odd pseudoprimes to base n exceeding n (like A007535 but with smallest odd terms instead of few even ones). |
|
+0
14
|
|
| 9, 341, 91, 15, 217, 35, 25, 9, 91, 33, 15, 65, 21, 15, 341, 51, 45, 25, 45, 21, 55, 69, 33, 25, 39, 27, 65, 45, 35, 49, 49, 33, 85, 35, 51, 91, 45, 39, 95, 91, 105, 205, 77, 45, 133, 133, 65, 49, 75, 51, 65, 85, 65, 55, 63, 57, 65, 133, 87, 341, 91, 63, 341, 65, 133, 91, 85
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
ds[x_, b_] := Mod[ -1+b^(x-1), x] a[n_] := Block[{m=1, s=ds[m, n]}, While[(s !=0||PrimeQ[m])||Equal[m, 1] ||!Greater[m, n]||EvenQ[m], m++ ]; m]; t=Table[a[n], {n, 1, 256}]
|
|
CROSSREFS
|
Cf. A007535.
Sequence in context: A012105 A100569 A090087 this_sequence A098650 A098652 A110695
Adjacent sequences: A090082 A090083 A090084 this_sequence A090086 A090087 A090088
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Nov 25 2003
|
|
|
Search completed in 0.002 seconds
|
