OFFSET
1,3
COMMENTS
Sequence is probably finite. Next term, if it exists, exceeds 1170.
Next term, if it exists, exceeds 50000. - Sean A. Irvine, Oct 18 2021
EXAMPLE
Record number is 2^54 = 18014398509481984.
MATHEMATICA
Select[Range[0, 10^3], NoneTrue[DeleteCases[Subsequences@ IntegerDigits[2^#], _?(Length[#] <= 1 &)], PalindromeQ] &] (* Michael De Vlieger, Oct 18 2021 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Patrick De Geest, Jan 15 2000
EXTENSIONS
Edited by Jon E. Schoenfield, Oct 17 2019
STATUS
approved