The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A248616 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A248616

Least number k such that k^k in base n contains all n possible digits.
(history; published version)

#10 by Harvey P. Dale at Sun Jul 29 13:41:12 EDT 2018

STATUS

editing

approved

#9 by Harvey P. Dale at Sun Jul 29 13:41:08 EDT 2018

MATHEMATICA

Join[{1}, Table[Module[{k=1}, While[Union[IntegerDigits[k^k, n]]!=Range[0, n-1], k++]; k], {n, 2, 70}]] (* Harvey P. Dale, Jul 29 2018 *)

STATUS

approved

editing

#8 by Bruno Berselli at Sat Oct 11 17:22:31 EDT 2014

STATUS

reviewed

approved

#7 by Michel Marcus at Sat Oct 11 17:01:50 EDT 2014

STATUS

proposed

reviewed

#6 by Derek Orr at Fri Oct 10 01:58:41 EDT 2014

STATUS

editing

proposed

#5 by Derek Orr at Fri Oct 10 01:58:13 EDT 2014

COMMENTS

a(n) is the right diagonal of the triangular array in A239306. Equivalently, a(n) = T(n,n) in A239306.

STATUS

proposed

editing

#4 by Derek Orr at Thu Oct 09 21:20:36 EDT 2014

STATUS

editing

proposed

Discussion

Fri Oct 10

01:44

Michel Marcus: comment : right diagonal of A239306 triangular array
or something equivalent ?

#3 by Derek Orr at Thu Oct 09 21:20:26 EDT 2014

DATA

1, 2, 5, 6, 11, 9, 9, 13, 16, 19, 16, 27, 19, 29, 33, 35, 36, 41, 36, 38, 41, 34, 40, 55, 56, 62, 73, 65, 67, 62, 70, 77, 77, 74, 76, 95, 92, 103, 97, 91, 89, 108, 96, 93, 104, 118, 117, 105, 125, 126, 132, 112, 137, 145, 132, 144, 147, 126, 138, 168, 141, 122, 165, 185, 166, 170, 187, 186

OFFSET

1,12

PROG

print1(1, ", "); b=2; while(b<1000, print1(a(b, b), ", "); b++)

#2 by Derek Orr at Thu Oct 09 21:11:16 EDT 2014

NAME

allocated for Derek OrrLeast number k such that k^k in base n contains all n possible digits.

DATA

2, 5, 6, 11, 9, 9, 13, 16, 19, 16, 27, 19, 29, 33, 35, 36, 41, 36, 38, 41, 34, 40, 55, 56, 62, 73, 65, 67, 62, 70, 77, 77, 74, 76, 95, 92, 103, 97, 91, 89, 108, 96, 93, 104, 118, 117, 105, 125, 126, 132, 112, 137, 145, 132, 144, 147, 126, 138, 168, 141, 122, 165, 185, 166, 170, 187, 186

OFFSET

1,1

PROG

(PARI)

a(n, b)=k=1; while(#vecsort(digits(k^k, b), , 8)!=n, if(#digits(k^k)>10^(n\2), return(0)); k++); k

b=2; while(b<1000, print1(a(b, b), ", "); b++)

CROSSREFS

Cf. A239306.

KEYWORD

allocated

nonn,base

AUTHOR

Derek Orr, Oct 09 2014

STATUS

approved

editing

#1 by Derek Orr at Thu Oct 09 21:11:16 EDT 2014

NAME

allocated for Derek Orr

KEYWORD

allocated

STATUS

approved