OFFSET
1,3
COMMENTS
Superset of A010784. - R. J. Mathar, Oct 20 2008
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
11 is the first number not in the sequence, since it has a pair of identical adjacent digits.
MAPLE
isA034096 := proc(n)
local dgs ;
dgs := convert(n, base, 10) ;
for i from 2 to nops(dgs) do
if op(i, dgs) = op(i-1, dgs) then
return false;
end if;
end do:
true ;
end proc:
for n from 0 to 150 do
if isA034096(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Jun 26 2023
MATHEMATICA
t={}; Do[If[!MemberQ[Differences[IntegerDigits[n]], 0], AppendTo[t, n]], {n, 0, 69}]; t (* Jayanta Basu, May 04 2013 *)
PROG
(Haskell)
import Data.List (elemIndices)
a043096 n = a043096_list !! n
a043096_list = elemIndices 1 a196368_list
-- Reinhard Zumkeller, Oct 28 2001
(PARI) is(n)=my(v=digits(n)); for(i=2, #v, if(v[i]==v[i-1], return(0))); 1 \\ Charles R Greathouse IV, Sep 17 2012
(Python)
def ok(n): s = str(n); return all(s[i] != s[i+1] for i in range(len(s)-1))
print(list(filter(ok, range(70)))) # Michael S. Branicky, Aug 22 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Oct 28 2011
STATUS
approved