login
A157733
a(0)=2, a(1)=3. Then 2 or 22 followed by a string of 3's such that the sum of the digits of a(n) is equal to prime(n).
1
2, 3, 23, 223, 2333, 22333, 233333, 2233333, 23333333, 2333333333, 22333333333, 2233333333333, 23333333333333, 223333333333333, 2333333333333333, 233333333333333333, 23333333333333333333, 223333333333333333333
OFFSET
0,1
COMMENTS
We search for w twos and t threes in prime(n) = 2*w + 3*t. If t = floor(prime(n)/3) would lead to w = 1/2, we decrease t by 1.
The number of twos is 3 - A039701(n) if n > 1.
If prime(n) is congruent to 1 mod 6, then a(n) starts with 22, but if prime(n) is congruent to 5 mod 6, then a(n) starts with 2. - Alonso del Arte, Dec 04 2013
EXAMPLE
a(3) = 23 because the third prime is 5 and 2 + 3 = 5.
a(4) = 223 because the fourth prime is 7 and 2 + 2 + 3 = 7.
a(5) = 2333 because the fifth prime is 11 and 2 + 3 + 3 + 3 = 11.
MATHEMATICA
Module[{nn = 30, t1, t2}, t1 = FromDigits/@Select[Table[PadRight[{2}, n, 3], {n, 2, nn}], PrimeQ[Total[#]] &]; t2 = FromDigits/@ Select[ Table[ PadRight[{2, 2}, n, 3], {n, 2, nn}], PrimeQ[Total[#]] &]; Union[ Join[ {2, 3}, t1, t2]]] (* Harvey P. Dale, Mar 06 2013 *)
CROSSREFS
Sequence in context: A020458 A139067 A099656 * A235934 A064888 A104458
KEYWORD
nonn,base
AUTHOR
Paul Curtz, Mar 05 2009
EXTENSIONS
Edited by R. J. Mathar, Mar 15 2009
STATUS
approved