A163139 First differences of A163128.

1, 1, 1, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 1, 10

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 21 2009

Keywords

• nonn
• base

Comments

First differences of self numbers, minus 1.

Examples

			a(6) = 24 - 14 = 10.
		

Crossrefs

Cf. A003052, A163128.

Programs

Maple

A007953 := proc(n) add(d,d=convert(n,base,10)) ; end:
isA003052 := proc(n) for k from 1 to n do if k+A007953(k) = n then RETURN(false) ; fi; od: true; end:
A003052 := proc(n) option remember; if n = 1 then 1; else for a from procname(n-1)+1 do if isA003052(a) then RETURN(a) ; fi; od: fi; end:
for n from 1 to 100 do printf("%d,",A003052(n+1)-A003052(n)-1) ; od: # R. J. Mathar, Jul 31 2009

Formula

a(n) = A163128(n+1) - A163128(n) = A003052(n+1) - A003052(n) - 1.

Extensions

Missing 10's inserted by R. J. Mathar, Jul 31 2009