login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A050726 Decimal expansion of 5^n contains no pair of consecutive equal digits (probably finite). 1

%I #16 Mar 07 2024 16:41:09

%S 0,1,2,3,4,5,6,7,8,9,10,14,15,16,17,18,19,20,21,22,27,28,29,32

%N Decimal expansion of 5^n contains no pair of consecutive equal digits (probably finite).

%C No further terms up to 3000. - _Harvey P. Dale_, May 11 2011

%C No further terms up to 80000. - _Ivan N. Ianakiev_, Aug 31 2019

%e 5^32 = 23283064365386962890625.

%p q:= n-> (s-> andmap(i-> s[i]<>s[i+1], [$1..length(s)-1]))(""||(5^n)):

%p select(q, [$0..200])[]; # _Alois P. Heinz_, Mar 07 2024

%t Select[Range[0,3000],And@@(First[#]!=Last[#]&/@Partition[ IntegerDigits[ 5^#],2,1])&] (* _Harvey P. Dale_, May 11 2011 *)

%t Select[Range[0,40],SequenceCount[IntegerDigits[5^#],{x_,x_}]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 12 2020 *)

%Y Cf. A008839, A046263, A046271.

%K nonn,base

%O 0,3

%A _Patrick De Geest_, Sep 15 1999

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:02 EDT 2024. Contains 371239 sequences. (Running on oeis4.)