OFFSET
1,3
EXAMPLE
a(1)=2-1=1, a(3)=5-3=2, a(6)=11-7=4.
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 1500 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