Revision History for A248266
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing all changes.
|
|
|
|
#6 by Jon E. Schoenfield at Sun Oct 20 21:30:15 EDT 2019
|
|
|
|
#5 by Jon E. Schoenfield at Sun Oct 20 21:30:12 EDT 2019
|
| NAME
|
Egyptian fraction representation of the sqrt(40) (A010494) using a greedy function.
|
| CROSSREFS
|
Cf. Egyptian fraction representations rep. forof the square Sqrtsroots: A006487, A224231, A248235 - -A248322,.
Cf. Egyptian fraction representations rep. forof the cube Cbrtsroots: A129702, A132480 - -A132574.
|
| STATUS
|
approved
editing
|
|
|
|
#4 by N. J. A. Sloane at Mon Oct 06 18:22:19 EDT 2014
|
|
|
|
#3 by Robert G. Wilson v at Sun Oct 05 00:16:44 EDT 2014
|
|
|
|
#2 by Robert G. Wilson v at Sat Oct 04 21:41:54 EDT 2014
|
| NAME
|
allocated Egyptian fraction representation of the forsqrt(40) (A010494) using Roberta G. Wilsongreedy vfunction.
|
| DATA
|
6, 4, 14, 320, 571786, 469930223859, 260342286471149560589985, 110737149164265654381526929767261159120340941327, 13640751783742037895965317463353502238298025074840803034014381823166601709380037834476485770683
|
| OFFSET
|
0,1
|
| MATHEMATICA
|
Egyptian[nbr_] := Block[{lst = {IntegerPart[nbr]}, cons = N[ FractionalPart[ nbr], 2^20], denom, iter = 8}, While[ iter > 0, denom = Ceiling[ 1/cons]; AppendTo[ lst, denom]; cons -= 1/denom; iter--]; lst]; Egyptian[ Sqrt[ 40]]
|
| CROSSREFS
|
Cf. Egyptian fraction rep. for the Sqrts: A006487, A224231, A248235 - A248322,
Cf. Egyptian fraction rep. for the Cbrts: A129702, A132480 - A132574.
|
| KEYWORD
|
allocated
nonn
|
| AUTHOR
|
Robert G. Wilson v, Oct 04 2014
|
| STATUS
|
approved
editing
|
|
|
|
#1 by Robert G. Wilson v at Sat Oct 04 13:52:09 EDT 2014
|
| NAME
|
allocated for Robert G. Wilson v
|
| KEYWORD
|
allocated
|
| STATUS
|
approved
|
|
|
|
|