A056749 Smallest palindrome greater than n in bases 2 and n.

3, 6643, 5, 31, 7, 85, 9, 127, 33, 255, 65, 313, 15, 693, 17, 341, 325, 381, 21, 1241, 771, 645, 325, 951, 27, 5461, 1317, 1161, 31, 1241, 33, 1453, 455, 5709, 3999, 2925, 195, 4097, 1025, 7671, 129, 2409, 45, 4097, 4095, 3855, 1421, 5049, 51, 8673, 3069

Offset

2,1

Links

Michel Marcus, Table of n, a(n) for n = 2..1000

Mathematica

Do[ k = n +1; While[ RealDigits[ k, n ][ [ 1 ] ] != Reverse[ RealDigits[ k, n ][ [ 1 ] ] ] || RealDigits[ k, 2 ][ [ 1 ] ] != Reverse[ RealDigits[ k, 2 ][ [ 1 ] ] ], k++ ]; Print[ k ], {n, 2, 60} ]

Prog

(PARI) isok2(j, n) = my(d=digits(j, n), b=binary(j)); (Vecrev(d)==d) && (Vecrev(b)==b);
a(n) = {my(j = n); while(! isok2(j, n), j++); j; } \\ Michel Marcus, Nov 16 2017

Crossrefs

Cf. A048268 (bases n and n+1).

Sequence in context: A187879 A325052 A283019 * A281788 A134776 A062595

Adjacent sequences: A056746 A056747 A056748 * A056750 A056751 A056752

Keyword

nonn,base

Author

Robert G. Wilson v, Aug 15 2000

Status

approved