OFFSET
1,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1)=3-2=1, a(2)=5-3=2, a(5)=66-11=55.
MAPLE
test := proc(n) local d; d := convert(n, base, 10); return ListTools[Reverse](d)=d and numtheory[mobius](n)=-1; end; s := []; for n from 1 to 11000 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[#] && MoebiusMu[#] == -1 &]] (* Paolo Xausa, Mar 10 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Oct 13 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 21 2002
STATUS
approved
