OFFSET
1,2
COMMENTS
No more terms <= 358000 and probably the list shown is complete.
Next term >= 10^6. - Giovanni Resta, Jan 05 2014
Next term >= 10^7. - Jake L Lande, Aug 06 2024
MATHEMATICA
consQ[n_, b_] := Catch@Block[{nd = 1, from, to}, While[Ceiling[b^(nd - 1)/n]>Min[nd(b - 1), Floor[(b^nd - 1)/n]], nd++]; While[(from = Ceiling[b^(nd - 1)/n]) <= (to = Min[nd (b - 1), Floor[(b^nd - 1)/n]]), Do[If[k == Plus @@ IntegerDigits[k n, b], Throw@True], {k, from, to}]; nd++]; False];
panConQ[n_] := Catch@Block[{}, Do[If[! consQ[n, b], Throw@False], {b, 2, n - 1}]; True]; Select[Range[3097], panConQ] (* code supplied by Giovanni Resta, Aug 06 2024 *)
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
David W. Wilson, Jan 17 2001
STATUS
approved