OFFSET
1,1
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)];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Oct 13 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 21 2002
STATUS
approved