|
|
A230498
|
|
a(n) is the minimal odd odious k>1, such that k^i, i=2,...,n, all are evil, and a(n)=0, if there is no such k.
|
|
3
|
|
|
13, 21, 21, 47, 265, 607, 883, 883, 883, 883, 10865, 10865, 58241, 58241, 58241, 75781, 367815, 766165, 2931371, 5288671, 5288671, 14838843, 14838843, 14838843, 33417397, 737812313, 2774333869, 3513898753, 3513898753, 3513898753, 14369883465, 14369883465, 22865025261
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
Conjecture: For all n, a(n) > 0.
|
|
LINKS
|
|
|
MATHEMATICA
|
evQ[n_] := EvenQ[DigitCount[n, 2, 1]]; evExp[n_] := Module[{e = 1, p = n^2}, If[! evQ[n], While[evQ[p], p *= n; e++]]; e]; seq[nmax_] := Module[{e, emax = 1, n = 3, s = {}}, Do[e = evExp[n]; If[e > emax, s = Join[s, ConstantArray[n, e - emax]]; emax = e], {n, 3, nmax, 2}]; s]; seq[11000] (* Amiram Eldar, Aug 03 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|