A263959 Number of decimal digits in A069151(n).
1, 2, 4, 355, 499, 1171, 1543, 5719
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Consecutive Number Sequences
- Eric Weisstein's World of Mathematics, Integer Sequence Primes
- Eric Weisstein's World of Mathematics, Smarandache-Wellin Prime
Crossrefs
Programs
-
Mathematica
Cases[FromDigits /@ Rest[FoldList[Join, {}, IntegerDigits[Prime[Range[10^3]]]]], p_?PrimeQ :> IntegerLength[p]]
-
PARI
p=""; for(n=1, 1e4, p=concat(p, prime(n)); if(ispseudoprime( eval(p)), print1(#Str(p)", "))) \\ Altug Alkan, Oct 30 2015
Comments