Smarandache-Wellin Number

Author

Eric W. Weisstein
November 6, 2015

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/Smarandache-WellinNumber.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Smarandache-WellinNumber.html.

©2015 Wolfram Research, Inc. except for portions noted otherwise

Algorithms

ConsecutivePrimes[n_]:=FromDigits[Flatten[IntegerDigits/@Prime[Range[n]]]]
SetAttributes[ConsecutivePrimes,Listable]

s1=ConsecutivePrimes[Range[20]]

s2=FoldList[#2+#1 10^IntegerLength[#2]&,Prime[Range[20]]]

s3=Table[FromDigits[Flatten[IntegerDigits[Prime[Range[n]]]]],{n,20}]

s4=FromDigits/@Flatten/@IntegerDigits/@Flatten/@Rest[FoldList[List,{},Prime[Range[20]]]]

s5=FromDigits/@Flatten/@IntegerDigits/@Rest[FoldList[Append,{},Prime[Range[20]]]]

s1==s2==s3==s4==s5