The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A105428 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A105428

Smallest prime dividing the composite near-repdigit number 133...33 consisting of a 1 followed by n 3's, where n=A105427.
(history; published version)

#15 by Charles R Greathouse IV at Thu Jan 17 13:44:08 EST 2019

LINKS

Makoto Kamada, <a href="httphttps://stdkmd.comnet/nrr/1/13333.htm">Factorizations of 133...33</a>.

Discussion

Thu Jan 17

13:44

OEIS Server: https://oeis.org/edit/global/2791

#14 by Max Alekseyev at Tue Apr 28 09:04:37 EDT 2015

STATUS

editing

approved

#13 by Max Alekseyev at Tue Apr 28 09:04:34 EDT 2015

LINKS

FactorDB, <a href="http://factordb.com/index.php?query=(10%5En-1)%2F3%2B10%5En">Factorizations of (10^n-1)/3+10^n</a>

STATUS

approved

editing

#12 by Ray Chandler at Thu Apr 23 09:29:55 EDT 2015

STATUS

editing

approved

#11 by Ray Chandler at Thu Apr 23 09:29:52 EDT 2015

LINKS

M. Makoto Kamada, <a href="http://homepage2.niftystdkmd.com/m_kamadanrr/math1/13333.htm">Factorizations of 133...33</a>.

STATUS

approved

editing

#10 by Charles R Greathouse IV at Thu Nov 21 12:48:40 EST 2013

MATHEMATICA

Transpose[FactorInteger[#]][[1, 1]]&/@DeleteCases[Table[ FromDigits[ PadRight[{1}, n, 3]], {n, 2, 60}], _?PrimeQ] (* From _Harvey P. Dale, _, Dec 10 2011 *)

Discussion

Thu Nov 21

12:48

OEIS Server: https://oeis.org/edit/global/2062

#9 by Russ Cox at Sat Mar 31 10:26:04 EDT 2012

AUTHOR

_Lekraj Beedassy (blekraj(AT)yahoo.com), _, Apr 08 2005

Discussion

Sat Mar 31

10:26

OEIS Server: https://oeis.org/edit/global/489

#8 by Russ Cox at Fri Mar 30 17:26:52 EDT 2012

EXTENSIONS

More terms from _Max Alekseyev (maxale(AT)gmail.com), _, Apr 11 2005

Discussion

Fri Mar 30

17:26

OEIS Server: https://oeis.org/edit/global/140

#7 by Harvey P. Dale at Sat Dec 10 11:27:53 EST 2011

STATUS

editing

approved

#6 by Harvey P. Dale at Sat Dec 10 11:27:46 EST 2011

MATHEMATICA

Transpose[FactorInteger[#]][[1, 1]]&/@DeleteCases[Table[ FromDigits[ PadRight[{1}, n, 3]], {n, 2, 60}], _?PrimeQ] (* From Harvey P. Dale, Dec 10 2011 *)

STATUS

approved

editing