cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-5 of 5 results.

A052061 Numbers k such that decimal expansion of k^2 contains no palindromic substring except single digits.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 13, 14, 16, 17, 18, 19, 23, 24, 25, 27, 28, 29, 31, 32, 33, 36, 37, 39, 41, 42, 43, 44, 48, 49, 51, 52, 53, 54, 55, 57, 59, 61, 64, 66, 68, 69, 71, 72, 73, 74, 75, 78, 79, 82, 84, 86, 87, 89, 93, 95, 96, 97, 98, 99, 104, 113, 116, 117, 118, 124
Offset: 1

Views

Author

Patrick De Geest, Jan 15 2000

Keywords

Comments

Leading zeros in the substrings are allowed so 103^2 = 10609 is rejected because 1{060}9 contains a palindromic substring.
Probabilistic analysis strongly suggests that this sequence is not finite. - Franklin T. Adams-Watters, Nov 15 2006

Examples

			118^2 = 13924 -> substrings 13, 39, 92, 24, 139, 392, 924, 1392, 3924 and 13924 are all non-palindromic.

Links

Crossrefs

Cf. A052062, A052063, A052064, A050741.

Programs

  • PARI
    noPalSub(n)={my(d);local(digit);digit=eval(Vec(Str(n)));d = #digit;for(len=2,d,for(i=1,d-len+1,if(isPalSub(i,len), return(0))));1};
isPalSub(start,len)={my(b=start-1,e=start+len);for(j=1,len>>1,if(digit[b+j] != digit[e-j], return(0)));1};
for(n=0,200,if(noPalSub(n^2),print1(n", ")))

Extensions

Program and b-file from Charles R Greathouse IV, Sep 09 2009

A052062 Squares containing no palindromic substring except single digits.

Original entry on oeis.org

0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 169, 196, 256, 289, 324, 361, 529, 576, 625, 729, 784, 841, 961, 1024, 1089, 1296, 1369, 1521, 1681, 1764, 1849, 1936, 2304, 2401, 2601, 2704, 2809, 2916, 3025, 3249, 3481, 3721, 4096, 4356, 4624, 4761, 5041, 5184, 5329
Offset: 1

Views

Author

Patrick De Geest, Jan 15 2000

Keywords

Comments

Leading zeros in substring allowed so 103^2 = 10609 is rejected because 1{060}9 contains a palindromic substring.
A comment in A052061 suggests that this sequence is infinite.

Examples

			2304 (= 48^2) -> substrings 23, 30, 04, 230, 304 and 2304 are all non-palindromic.

Links

Crossrefs

Cf. A052061, A052063, A052064, A050749.

Programs

  • PARI
    noPalSub(n)={my(d);local(digit);digit=eval(Vec(Str(n)));d = #digit;for(len=2,d,for(i=1,d-len+1,if(isPalSub(i,len), return(0))));1};isPalSub(start,len)={my(b=start-1,e=start+len);for(j=1,len>>1,if(digit[b+j] != digit[e-j], return(0)));1}
for(n=0,100,if(noPalSub(n^2),print1(n^2", ")))

Formula

a(n) = A052061(n)^2. - Andrew Howroyd, Aug 11 2024

Extensions

Program and b-file from Charles R Greathouse IV, Sep 09 2009
Offset changed by Andrew Howroyd, Aug 11 2024

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

Original entry on oeis.org

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, 38, 39, 41, 43, 44, 47, 51, 57, 59, 65, 66, 69, 73, 75, 76, 84, 88, 93, 94, 97, 102, 108, 109, 115, 116, 123, 125, 128, 133, 134, 135, 139, 144, 145, 147, 148, 155, 156, 159
Offset: 1

Views

Author

Patrick De Geest, Jan 15 2000

Keywords

Comments

Leading zeros in substring are allowed so 52^3 = 140608 is rejected because 14{060}8 contains a palindromic substring.
Probabilistic analysis strongly suggests that this sequence is not finite. - Franklin T. Adams-Watters, Nov 15 2006

Examples

			19^3 = 6859 -> substrings 68, 85, 59, 685, 859 and 6859 are all non-palindromic.

Links

Crossrefs

Cf. A052064, A052061, A052062, A050742.

Programs

  • Mathematica
    testQ@l_ :=
NoneTrue[Flatten[Table[Partition[l, n, 1], {n, 2, Length@l}], 1],
  PalindromeQ];
f@nn_ := Select[Range@nn, testQ@IntegerDigits@(#^3) &]; f[300]
(* Hans Rudolf Widmer, May 13 2022 *)
  • Python
    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)))
def ok(n): return nopal(str(n**3))
print([k for k in range(160) if ok(k)]) # Michael S. Branicky, May 13 2022

A052067 a(n) is the first cube root greater than 10^n such that a(n)^3 is a palfree cube (palfree = contains no palindromic substring except single digits).

Original entry on oeis.org

12, 102, 1008, 10091, 100698, 1007059, 10069605, 100695969, 1006958659, 10069585741, 100695847434, 1006958474563, 10069584743393, 100695847434688, 1006958474332019, 10069584743315203
Offset: 1

Views

Author

Patrick De Geest, Jan 15 2000

Keywords

Comments

Probably finite.

Links

Crossrefs

Cf. A052068, A052063, A052064.

Extensions

More terms from Keith Schneider (schneidk(AT)email.unc.edu), May 23 2007

A052068 Palfree cubes whose root is the smallest possible greater than 10^n (palfree = contains no palindromic substring except single digits).

Original entry on oeis.org

1728, 1061208, 1024192512, 1027549183571, 1021086501268392, 1021326840189306379, 1021027182906953620125, 1021024718963175618538209, 1021021582763927831895785179
Offset: 1

Views

Author

Patrick De Geest, Jan 15 2000

Keywords

Comments

Probably finite.

Links

Crossrefs

Cf. A052067, A052063, A052064.

Extensions

More terms from Keith Schneider (schneidk(AT)email.unc.edu), May 23 2007
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.