|
| |
|
|
A306632
|
|
Numbers n which are both lucky (A000959) and Lucas (A000032).
|
|
0
|
| |
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
No more terms below 10^9.
Calculated using Hugo van der Sanden's Lucky numbers up to 10^9.
|
|
|
LINKS
|
Table of n, a(n) for n=1..7.
|
|
|
MATHEMATICA
|
m = 10^4; L = Table[2*i + 1, {i, 0, m}]; For[n = 2, n < Length[L], r = L[[n++]]; L = ReplacePart[L, Table[r*i -> Nothing, {i, 1, Length[L]/r}]]]; lucas = {}; n = 1; While[(l = LucasL[n]) < m, AppendTo[lucas, l]; n++]; Intersection[L, lucas] (* after Jean-François Alcover at A000959 *)
|
|
|
PROG
|
(Perl) use ntheory ':all'; for (1..35) { my $n = lucasv(1, -1, $_); print "$n\n" if is_lucky($n) } # Daniel Suteu, Mar 02 2019
|
|
|
CROSSREFS
|
Cf. A000032, A000959, A057589, A130594, A140285.
Sequence in context: A296351 A349007 A101006 * A083461 A137029 A174307
Adjacent sequences: A306629 A306630 A306631 * A306633 A306634 A306635
|
|
|
KEYWORD
|
nonn,more
|
|
|
AUTHOR
|
Amiram Eldar, Mar 02 2019
|
|
|
STATUS
|
approved
|
| |
|
|
