Revisions to Count without 3

Commonmark migration

Source Link

edited Jun 17, 2020 at 9:04

##Mathematica, 51 bytes

Mathematica, 51 bytes

#+1//.t_/;t~Mod~3<1||!IntegerDigits@t~FreeQ~3:>t+1&

##Mathematica, 51 bytes

#+1//.t_/;t~Mod~3<1||!IntegerDigits@t~FreeQ~3:>t+1&

#+1//.t_/;t~Mod~3<1||!IntegerDigits@t~FreeQ~3:>t+1&

deleted 14 characters in body

Source Link

edited Dec 12, 2017 at 21:57

##Mathematica, 5951 bytes

(t=#+1;While[t~Mod~3==0||IntegerDigits@t~MemberQ~3,t++];t)&#+1//.t_/;t~Mod~3<1||!IntegerDigits@t~FreeQ~3:>t+1&

##Mathematica, 59 bytes

(t=#+1;While[t~Mod~3==0||IntegerDigits@t~MemberQ~3,t++];t)&

##Mathematica, 51 bytes

#+1//.t_/;t~Mod~3<1||!IntegerDigits@t~FreeQ~3:>t+1&

Source Link

created May 17, 2017 at 22:26

##Mathematica, 59 bytes

(t=#+1;While[t~Mod~3==0||IntegerDigits@t~MemberQ~3,t++];t)&