|
|
A110042
|
|
Bases of the n-th powers in A090900.
|
|
0
|
|
|
2, 3, 3, 9, 33, 33, 23, 63, 273, 243, 187, 297, 81, 543, 17, 1117, 237, 9087, 1581, 693, 1149, 3807, 3953, 3499, 7979, 489, 2751, 1597, 2109, 8073
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
c = ""; Do[k = 1; While[ !PrimeQ[ToExpression[c <> ToString[k^n]]], k++ ]; Print[k]; c = c <> ToString[k^n], {n, 1, 30}]
|
|
PROG
|
(PARI) lista(nn) = my(k, s=""); for(n=1, nn, k=1; while(!ispseudoprime(eval(Str(s, k^n))), k++); print1(k, ", "); s=Str(s, k^n)); \\ Jinyuan Wang, Apr 05 2023
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|