A060947 Intrinsic 10-palindromes: n is an intrinsic k-palindrome if it is a k-digit palindrome in some base.

513, 561, 585, 633, 645, 693, 717, 765, 771, 819, 843, 891, 903, 951, 975, 1023, 19684, 20008, 20332, 20440, 20764, 21088, 21196, 21520, 21844, 21880, 22204, 22528, 22636, 22960, 23284, 23392, 23716, 24040, 24076, 24400, 24724, 24832

Offset

1,1

Comments

See A060873 for more information.

Links

Peter Kagey, Table of n, a(n) for n = 1..10000

Mathematica

testQ[n_, k_] := For[b = 2, b <= Ceiling[(n-1)^(1/(k-1))], b++, d = IntegerDigits[n, b]; If[Length[d] == k && d == Reverse[d], Return[True]]]; n0[k_] := 2^(k-1) + 1; Reap[Do[If[testQ[n, 10] === True, Print[n, " ", FromDigits[d], " b = ", b]; Sow[n]], {n, n0[10], 25000}]][[2, 1]] (* Jean-François Alcover, Nov 07 2014 *)

Crossrefs

Cf. A060873-A060879.

Sequence in context: A017553 A087931 A044879 * A182108 A066697 A076338

Adjacent sequences: A060944 A060945 A060946 * A060948 A060949 A060950

Keyword

nonn,base

Author

Harvey P. Dale, May 08 2001

Status

approved