A037288 Replace 2n+1 with concatenation of its nontrivial divisors.

0, 0, 0, 0, 3, 0, 0, 35, 0, 0, 37, 0, 5, 39, 0, 0, 311, 57, 0, 313, 0, 0, 35915, 0, 7, 317, 0, 511, 319, 0, 0, 37921, 513, 0, 323, 0, 0, 351525, 711, 0, 3927, 0, 517, 329, 0, 713, 331, 519, 0, 391133, 0, 0, 357152135, 0, 0, 337, 0, 523, 391339, 717, 11, 341, 525, 0, 343, 0

Offset

0,5

Links

Table of n, a(n) for n=0..65.

Example

Divisors of 15 are 1,3,5,15, so a(7)=35

Mathematica

Join[{0}, Table[FromDigits[Flatten[IntegerDigits/@Most[Rest[ Divisors[ 2n+1]]]]], {n, 70}]] (* Harvey P. Dale, Nov 17 2014 *)

Crossrefs

Sequence in context: A278188 A101192 A228622 * A215519 A215679 A160537

Adjacent sequences: A037285 A037286 A037287 * A037289 A037290 A037291

Keyword

nonn,base,easy

Author

N. J. A. Sloane

Extensions

More terms from Erich Friedman

Status

approved