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,5

Comments

First differences of self numbers, minus 1.

Links

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

Formula

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

Example

a(6) = 24 - 14 = 10.

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

Crossrefs

Cf. A003052, A163128.

Sequence in context: A239051 A131722 A072803 * A269352 A010692 A109751

Adjacent sequences: A163136 A163137 A163138 * A163140 A163141 A163142

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Jul 21 2009

Extensions

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

Status

approved