A075804 Differences between adjacent palindromic nonsquarefree numbers A035132.

4, 1, 35, 44, 11, 22, 50, 41, 20, 10, 10, 20, 20, 41, 10, 20, 41, 10, 10, 20, 20, 20, 41, 50, 10, 31, 20, 20, 10, 10, 10, 10, 51, 61, 20, 20, 20, 20, 21, 90, 332, 550, 231, 220, 220, 110, 110, 220, 671, 110, 220, 11, 110, 110, 220, 110, 110, 220, 341, 220, 330, 341

Offset

1,1

Links

Table of n, a(n) for n=1..62.

Example

a(1) = 8 - 4 = 4, a(2) = 9 - 8 = 1, a(3) = 44 - 9 = 35.

Maple

test := proc(n) local d; d := convert(n, base, 10); return ListTools[Reverse](d)=d and numtheory[mobius](n)=0; end; s := []; for n from 1 to 7000 do if test(n) then s := [op(s), n]; end; od; a := [op(2..-1, s)-op(1..-2, s)];

Mathematica

Differences[Select[Range[10000], PalindromeQ[#]&&!SquareFreeQ[#]&]] (* Harvey P. Dale, Dec 28 2024 *)

Crossrefs

Cf. A037010, A035132.

Sequence in context: A266240 A322601 A374258 * A059844 A277169 A144284

Adjacent sequences: A075801 A075802 A075803 * A075805 A075806 A075807

Keyword

nonn,base

Author

Jani Melik, Oct 13 2002

Extensions

Edited by Dean Hickerson, Oct 21 2002

Status

approved