cp's OEIS Frontend

A052063 Numbers k such that the decimal expansion of k^3 contains no palindromic substring except single digits.

%I A052063 #20 May 13 2022 10:10:04
%S A052063 0,1,2,3,4,5,6,8,9,12,13,16,17,18,19,21,22,24,25,27,28,29,32,33,35,37,
%T A052063 38,39,41,43,44,47,51,57,59,65,66,69,73,75,76,84,88,93,94,97,102,108,
%U A052063 109,115,116,123,125,128,133,134,135,139,144,145,147,148,155,156,159
%N A052063 Numbers k such that the decimal expansion of k^3 contains no palindromic substring except single digits.
%C A052063 Leading zeros in substring are allowed so 52^3 = 140608 is rejected because 14{060}8 contains a palindromic substring.
%C A052063 Probabilistic analysis strongly suggests that this sequence is not finite. - _Franklin T. Adams-Watters_, Nov 15 2006
%H A052063 Michael S. Branicky, <a href="/A052063/b052063.txt">Table of n, a(n) for n = 1..10000</a>
%e A052063 19^3 = 6859 -> substrings 68, 85, 59, 685, 859 and 6859 are all non-palindromic.
%t A052063 testQ@l_ :=
%t A052063 NoneTrue[Flatten[Table[Partition[l, n, 1], {n, 2, Length@l}], 1],
%t A052063   PalindromeQ];
%t A052063 f@nn_ := Select[Range@nn, testQ@IntegerDigits@(#^3) &]; f[300]
%t A052063 (* _Hans Rudolf Widmer_, May 13 2022 *)
%o A052063 (Python)
%o A052063 def nopal(s): return all(ss != ss[::-1] for ss in (s[i:j] for i in range(len(s)-1) for j in range(i+2, len(s)+1)))
%o A052063 def ok(n): return nopal(str(n**3))
%o A052063 print([k for k in range(160) if ok(k)]) # _Michael S. Branicky_, May 13 2022
%Y A052063 Cf. A052064, A052061, A052062, A050742.
%K A052063 nonn,base
%O A052063 1,3
%A A052063 _Patrick De Geest_, Jan 15 2000