Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A037274
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A037274 Home primes: for n >= 2, a(n) = the prime that is finally reached when you start with n, concatenate its prime factors (A037276) and repeat until a prime is reached (a(n) = -1 if no prime is ever reached). +0
40
1, 2, 3, 211, 5, 23, 7, 3331113965338635107, 311, 773, 11, 223, 13, 13367, 1129, 31636373, 17, 233, 19, 3318308475676071413, 37, 211, 23, 331319, 773, 3251, 13367, 227, 29, 547, 31, 241271, 311, 31397, 1129, 71129, 37, 373, 313, 3314192745739, 41, 379, 43, 22815088913, 3411949, 223, 47, 6161791591356884791277 (list; graph; listen)
OFFSET

1,2

COMMENT

The initial 1 could have been omitted.

Probabilistic arguments give exactly zero for the chance that the sequence of integers starting at n contains no prime, the expected number of primes being given by a divergent sequence - John Conway (conway(AT)math.princeton.edu)

REFERENCES

Jeffrey Heleen, Family Numbers: Mathemagical Black Holes, Recreational and Educational Computing, 5:5, pp. 6, 1990.

Jeffrey Heleen, Family numbers: Constructing Primes by Prime Factor Splicing, J. Recreational Math., Vol. 28 #2, 1996-97, pp. 116-119.

LINKS

P. De Geest, Home Primes < 100 and Beyond

Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.

EXAMPLE

9 = 3*3 -> 33 = 3*11 -> 311, prime, so a(9) = 311.

The trajectory of 8 is more interesting:

8 ->

2 * 2 * 2 ->

2 * 3 * 37 ->

3 * 19 * 41 ->

3 * 3 * 3 * 7 * 13 * 13 ->

3 * 11123771 ->

7 * 149 * 317 * 941 ->

229 * 31219729 ->

11 * 2084656339 ->

3 * 347 * 911 * 118189 ->

11 * 613 * 496501723 ->

97 * 130517 * 917327 ->

53 * 1832651281459 ->

3 * 3 * 3 * 11 * 139 * 653 * 3863 * 5107

and 3331113965338635107 is prime, so a(8) = 3331113965338635107.

MATHEMATICA

f[n_] := FromDigits@ Flatten[ IntegerDigits@ Table[ #[[1]], { #[[2]] }] & /@ FactorInteger@n, 2]; g[n_] := NestWhile[ f@# &, n, !PrimeQ@# &]; g[1] = 1; Array[g, 41] (* Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 22 2007 *)

CROSSREFS

Cf. A006919, A037271-A037275, A037276, A037919-A037941, A048986, A056938.

Cf. also A120716 and related sequences.

Adjacent sequences: A037271 A037272 A037273 this_sequence A037275 A037276 A037277

Sequence in context: A106715 A106817 A160759 this_sequence A037275 A142960 A117324

KEYWORD

nonn,nice,base

AUTHOR

N. J. A. Sloane (njas(AT)research.att.com), Jeff Burch (gburch(AT)erols.com)

EXTENSIONS

Corrected and extended by Karl W. Heuer (kwzh(AT)gnu.org), Sep 30 2003

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified November 7 16:45 EST 2009. Contains 166093 sequences.


AT&T Labs Research