OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[2000], MemberQ[Partition[IntegerDigits[#, 7], 2, 1], {2, 1}] && !MemberQ[Partition[IntegerDigits[#+1, 7], 2, 1], {2, 1}]&] (* Harvey P. Dale, Jun 24 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved